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ABSTRACT 


Nucleate pool boiling heat transfer is an integral part 
of any vapor-compression refrigeration cycle. With a view to 
improving overall cycle efficiency, the heat transfer 
performance in the evaporator can be improved by using 
enhanced boiling surfaces. This thesis looks at the pool 
boiling characteristics of R-114 (presently used in large 
shipboard AC systems) from 10 enhanced single copper tubes and 
compares performance with a smooth copper tube. Since small 
amounts of oil escape into the refrigerant as it passes 
through the compressor of a refrigeration system, tests have 
also been conducted with up to 10% (by weight) of a miscible 
Oil to see what effect this may have on overall evaporator 


performance. 
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NOMENCLATURE 


area 
tube outside surface area of active boiling 
section 

cross-sectional area of tube 

specific heat 

diameter 

tube inside diameter 

tube outside diameter 

diameter at the position of the thermocouple 
outer diameter of the boiling tube 
gravitational acceleration 

heat-transfer coefficient 

latent heat of vaporization 

SU AS iOle 

current reading by AC Current Sensor 

thermal Gonductivirey sor shrewd 

thermal conductivity of copper 

active boiling tube length 

non-boiling length of the test tube 

Nusselt number 

tube outside wall perimeter 

Prandtl Number 

heat-transfer rate from boiling surface 
heat-transfer rate through one nonboiling end 
heat-transfer rate from cartridge heater 

heat flux 

Rayleigh number 

eGo sel bee 

average wall temperature at the thermocouple 
ioyarzhmalies9 

critical temperature 

film temperature 


inv. 


Tn 
Tsat 
Two 


Ome ao) GH Oo 


temperature of the thermocouple location 
Saturation temperature 

outer wall temperature of the boiling test tube 
voltage across the cartridge heater 

voltage reading by AC-DC true RMS converter 
thermal diffusivity 

volumetric thermal expansion coefficient 
uncertainty in measurement and calibration 
Superheat 

dynamic viscosity 

kinematic viscosity 

density 


xV 





I. INTRODUCTION 


A. BACKGROUND 

The United States Navy currently uses’ R-114 am 
approximately 950 centrifugal chilled-water air-conditioning 
plants. Ongoing efforts to reduce the cost and increase the 
efficiency of these plants have been directed towards the use 
of enhanced heat-transfer tube surfaces and alternative 
refrigerants. The choice of alternative refrigerant must be 
"ozone friendly." A possible "drop in" replacement for R-114 
has been identified: R-124. Studies of the boiling performance 
of R-124 would be complemented well by a baseline of data on 


Rell4. 


B. ADVANTAGES OF USING R-114 

The use of R-114 in Naval applications has been driven by 
concerns for both cost and safety. R-114 operates under 
moderate pressures and has one of the lowest toxicity ratings 
among all refrigerants. System components are significantly 
smaller and more lightweight which is desirable for shipboard 
use and maintenance. While R-11 is widely used in industry, 
its operating requirements make it unsuitable onboard ship. R- 
11 operates under vacuum and has a tendency to absorb ambient 
moisture. This acidic combination of R-11 and moisture attacks 


tubes and causes corrosion. R-114 is considerably stable to 


heat and may be used with all standard ferrous and non-ferrous 
metals except zinc, magnesium and aluminum alloys containing 
appreciable amounts of zinc and magnesium. The thermophysical 


properties of R-114 are provided in Appendix A. 


C. THESIS OBJECTIVES 

Safety requirements for future studies of R-124 
necessitated the disassembly and relocation of the single-tube 
apparatus described in this thesis. Past studies using the 
apparatus have varied considerably in operating procedure, 
thus it became desirable to establish a consistent operating 
procedure in the acquisition of all data on R-114. With the 


foregoing discussion in mind, the objectives of this thesis 


WEDe™= fo. 
lie Relocate and calibrate the single tube apparatus. 
Ze Operate the apparatus to produce repeatable data and 


COMP Erm earlier sresumees. 


Se Obtain boiling data for R-114 and R-114/70il mixtures@en 
ten tube surfaces to be used as a database for future 
Studies on enhanced surfaces and alternative "ozone 
safe" refrigerants. 


II. REVIEW OF REFRIGERANT AND REFRIGERANT/OIL POOL 
BOILING BEHAVIOR 

A. NUCLEATE POOL BOILING PERFORMANCE OF PURE R-114 

The heat-transfer performance of pure R-114 on a smooth 
tube in the natural convection region of its boiling curve can 
be reasonably predicted using well known correlations, 
Churchill and Chu [Ref. 1] and more recently Churchill and 
Usagi [Ref. 2]. A lack of complete understanding of the 
nucleate boiling mechanism makes it more difficult the to 
predict the performance in the nucleate boiling region. Well 
known correlations, such as that by Rohsenow [Ref. 1], and 
more recently, Stephan-Adelsalam [Ref. 3] are approximate and 
should be compared with experimental data whenever possible. 

Many pool-boiling experiments have been carried out on 
finned tubes (typically 19 to 40 fpi) in pure refrigerants. 
For various refrigerants, tube material, fin density and 
system pressure, typical enhancements in the heat transfer 
coefficient (over smooth tubes values) of up to 3 have been 
reported, the refrigerants with better wetting characteristics 
giving the greater enhancement. Interestingly enough, the 
boiling performance of finned tubes becomes very similar to 
that of smooth tubes, if the heat flux is recalculated on the 
basis of total outside wetted surface area (rather than root 


diameter, which is commonly used). 


Re-entrant cavity surfaces differ from finned surfacesmaa 
that they provide a higher density of stable nucleation sites 
with minimum wall superheat (Yilmaz and Westwater [Ref. 4] 
Carnavos [Ref. 5], Marto and Lepere [Ref. 6] and Wanniarachchi 
et al. [Refs. 7, 8]). Significant improvements in heat 
transfer over both finned and smooth tubes have been shown for 
re-entrant cavity surfaces. 

Boiling enhancements were as large as 14.6 and 6.4 for 
High Flux and Turbo-B tubes, respectively, compared to smooth 
tube data. 

Webb [Ref. 9] stated that the key to the high performance 
of the re-entrant surfaces can be attributed to three factors: 
(1) re-entrant cavity within a critical size range, (2) 
interconnected cavities, and (3) nucleation sites of a re- 
entrant shape. If the cavities are interconnected, adjacent 
cavities can activate each other. Re-entrant cavities provide 
a Stable vapor trap, which can remain active at low values of 
superheat. 

During nucleate boiling of R-114 at one atmosphere, 
Wanniarachchi et al. [Refs. 7 and 8] reported data for four 
enhanced tubes: a porous coated High Flux, Thermoexcel-E, 
Thermoexcel-HE and a 26 fpi GEWA-T. Enhancements of 9.1, 8.2, 
6,8 and 4.4 respectively were obtained at a heat flux of 30 
kW/m’. The enhancement provided by the High Flux tube reduced 
to 6 at higher fluxes of about 100 kwW/m?, but it staal 


outperformed the other three tubes. At heat fluxes below 18 


kW/m*, both the Thermoexcel tubes performed the best. However, 
they noted that the uncertainty in the data increased as both 
superheat and heat flux decreased. 

Whereas the majority of pool-boiling experiments use 
electrically heat tubes, McManus et al. [Ref. 10] used hot 
water to heat both a High Flux and Turbo-B tube in a pool of 
R-114. The range of heat flux was very limited. However, at a 
meat flux of “40 Kw/m-, enhancements of 14.6 and 6.4 
respectively, were obtained over smooth tube values. 

B. NUCLEATE POOL BOILING PERFORMANCE OF 

REFRIGERANT-OIL MIXTURES 

Most refrigeration systems use hermetically sealed 
compressors which allow small quantities of oil to escape into 
the working fluid. This oil tends to collect in the flooded 
evaporator, giving up to 10% oil in some cases. The nucleate 
pool boiling mechanism is further complicated when a less 
volatile component, such as miscible refrigerant oil, is mixed 
with the refrigerant. Design and modelling rely heavily on 
accurate experimental data covering a wide range of operating 
Gemnaitions. 

Compared with pure refrigerants, there is little data for 
boiling of refrigerant/oil mixtures from finned surfaces. 
Chaddock [Ref. 11] gives a thorough summary of such mixtures 
timmeenmghn 1975. Sauer et al. [Ref. 12] report data from 19 fpi 


Sopper “tube “Using R=11 “with “two “different oils. For oil 


concentrations less than 3%, their results indicatedmime 
difference in boiling heat transfer performance from that of 
the pure refrigerant. For oil concentrations greater than 5%, 
Significant degradation in performance was shown. They 
concluded that finned tubes performed best at low wall 
superheats and that this performance was not impaired by up to 
Shy ube elclolilic vege 

Murphy [Ref. 13] carried out experiments on a 26 and 40 
fpi tube using R-114/oil mixtures. Similar to Sauer [Ref. 11], 
no difference in performance waS observed for oil 
concentrations up to 3%. Indeed in some cases, at a higher 
heat flux of about 100 kW/m*?, a 3%-01i1 cGomcentration shemeame 
small increase in performance over the pure refrigerant case. 
The mechanism for this improvement is not well understood, but 
has been found by a number of investigators for both flow and 
pool boiling. At a 10% oil concentration, both tubes exhibited 
a 30% degradation in performance versus the pure refrigerant 
case, which agreed with Sauer’s findings. 

Wanniarachi et al. [Refs. 7, 8] reported the performance 
of High Flux, Thermoexcel-E, Thermoexcel-HE and GEWA-T tubes 
in R-114/oil mixtures at one atmosphere. Oil concentrations up 
to 10% (by weight) were studied. A marked increase in the wall 
Superheat values required for the incipience of nucleate 
boiling was observed in the presence of oil. Enhancements 
mentioned previously for pure R-114 were reduced at a 3% oil 


concentration, to 7.5, 5.57 5.58and 3.8 respectively neers oe 


eeeeconecemturations, further reductions to 5.5, 3.8, 3,8 and 
Yeoewere Observed. At the highest heat fluxes (> 45 kW/m’) and 
for oil concentrations greater than 6%, the performance of the 
High Flux tube degraded at a rate that left the GEWA-T tube as 


the best performer. 


III. DESCRIPTION OF EXPERIMENTAL APPARATUS 


A. OVERVIEW OF THE SYSTEM 

Wanniarachchi et al. [Ref. 7], Murphy [Ref. 13] and 
Karasabun [Ref. 14] provide complete details of the original 
apparatus used in previous studies. Disassembly of the 
Original apparatus to facilitate relocation and subsequent 
modifications to meet present site requirements justify a full 
description of the apparatus. The original R-12 cooling 
subsystem was supplanted by a more efficient R-502 system. The 
auxiliary heaters and plastic shield were removed, however 
power extensions were kept available for their use in future 
Studies. The Variac power supply to the tube heater was 
calibrated and emplaced into a panel enclosure. See Appendix 
D, Apparatus Calibration for more details. A more modern 
Hewlet-Packard Computer/Data Acquisition system was installed 
and the data reduction program DRP8 was updated to account for 
variac calibration and program language changes. 

An overall schematic representation of the experimental 
apparatus is shown in Figure 3.1, and a photograph is shown in 
Figure 3.2. The apparatus essentially consists of 8 
(components: 1) a Pyrex-glass tee for the pool boiling of the 
R-114 liquid, "the evaporator"; (2) a Pyrex-glass tee for the 


condensing of the R-114 vapor, “the cendenser”; (3) ake 


liguid reservoir; (4) a refrigerant/oil subsystem composed of 
an oil reservoir and a graduated oil cylinder; (5) a cooling 
subsystem composed of a 1/2 ton R-502 refrigeration plant, 2 
positive displacement pumps and a 30 gallon water/ethylene 
glycol sump; (6) a vacuum pump; (7) a data acquisition and 
instrumentation system; (8) an aluminum/Plexi-glass framework 
within which components (1) through (4) were housed. 

The apparatus was operated as follows: liquid R-114 was 
boiled in the evaporator (1), passed as vapor through the 
aluminum L-shaped connection and condensed in the condenser 
(2). R-114 condensate was returned by gravity via the 
distribution tube to the condenser. The R-502 refrigeration 
plant maintained the water/ethylene glycol mixture in the sump 
between -12 and -18 °C. Cooling of the sump was accomplished 
by a countercurrent flow heat exchanger through which an 8-gpm 
turbine-type pump recirculated the water/ethylene glycol 
mixture. An identical positive displacement pump circulated 
the cooled mixture through the copper condensing coils in the 
condenser via the control valve VC. 

Prior to dismantling the evaporator in order to change out 
boiling tubes, the liguid R-114 was boiled out of the 
evaporator, condensed on the coils of the condenser then 
recovered to the R-114 liquid reservoir rather than returned 
to the evaporator. Upon reassembly, the evaporator was 


recharged with liquid R-114 by gravity from the reservoir. The 


level in the reservoir could be topped off via the condenser 
from an external supply cylinder Ehroughe val es ie 

Exact quantities of oil could be added to the liquid R-114 
in the lower glass tee from the graduated cylinder (5) by 
gravity. The graduated cylinder was filled with oil by gravity 
from the oil reservoir through valves V14 and V2. Refilling 
the oil reservoir was done through valve V3 located at the top 
of the framework. All oil left over from the recovery of the 
liquid R-114 was drained out of the lower class tee and 
disposed of. 

The boiling tube was mounted horizontally in the 
evaporator and held in place by Teflon bushings with O-ring 
inserts. The whole system was connected to the vacuum pump (6) 
through valve V8 in order to remove noncondensible gases. A 
relief valve mounted on the aluminum L connection was set to 
a gage pressure limit of 20 psi, which is 50% less than the 
manufacturer-recommended working pressure limit of the Pyrex 
Glass tees. All connections were assembled with Swacelok 
fittings sealed with Teflon ferrules to ensure leak tightness. 
Copper tubing of 3/8 inch diameter was used for ali piping, 
except in the oil section, where 1/4 inch copper tubing was 


used. 
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B. BOILING TEST SECTION 
1. Evaporator 

The evaporator is a T-shaped container made of Corning 
Pyrex glass. Figure 3.3 shows a schematic of the evaporator 
with dimensions. Pyrex glass has several advantages: it is 
corrosion-resistent, transparent, haS a smooth interior 
surface (this minimized nucleate boiling at the inner surface 
of the container) and is stronger with temperature and 
pressure variations compared to ordinary glass. The 
manufacturer recommended operating pressure limit of the Pyrex 
glass tee is 30 psi gage. Each end of the evaporator was 
fitted with a cast-iron flange and a gasket. A detailed sketch 
of the cast-iron flange is shown in Figure 3.3 also. To reduce 
weight upon the glass tees, two aluminum flanges, 210 mm in 
diameter and 12.7 mm in thickness, were bolted to the cast- 
iron flanges. All fittings were connected through the aluminum 
flanges to the Pyrex-glass evaporator. 

2. Test Tube 

A schematic drawing of the test tube is shown in 
Figure 3.4. The boiling tube was held in place by two Teflon 
bushings, which were attached to the aluminum flanges at both 
ends of the T-shaped evaporator. Four studs were used in order 
to attach the Teflon bushing on the aluminum flange. The 


Teflon bushing and both ends of the test tube were sealed by 


ab 


means of two viton O-rings that were placed between the 
aluminum flange and the Teflon plug at each end. 
3. Boiling Tubes 

A smooth, hard-copper tube, 15.9 mm (5/8 inv) in@etees 
diameter, 12.7 mm (1/2 in) in inside diameter and 431.3 mm (17 
in.) in length, was used to provide comparison data for the 
nucleate pool boiling heat-transfer performance of the 
enhanced tubes tested. All of the tubes were heated and 
instrumented identically. Dimensions of each tube are provided 
in Table V of Appendix E, Sample Calculations. Wanniarachchi 
et al. [Refs. 8, 9] and Murphy [Ref. 14] provide complete 
details of the tube surfaces. 


The ten tubes tested were: 


lige smooth 

2) GEA ae 716 Oe i Ediciae a5) 
os GEWA-K 40 fpi (Figure 3.5) 
4. GEWA-T 19 fpi (Figure 3.5) 
ae GEWA-T 26 fpi (Figure 3.5) 
Ce GEWA-YX 26 fpi (Figure 3.6) 
ee High’ Pia (FPaigqure .s-0) 

om Thermoexcel-HE (Figure 3.8) 
a2 Thermoexcel-E (Figure 3.9) 


10, Turbe@=s (Figure 333) 


EZ 


The heater was a 1000-Watt, 240 Vole stainless-steel 
cartridge, 6.35 mm (1/4 in.) in outer diameter and 203.2 mm (8 
in) in length. It was inserted into a copper sleeve, which was 
1/4 inch in inside diameter, 1/2 inch in outer diameter and 8 
inches in length. In order to provide a uniform heat flux, the 
cartridge heater and the copper sleeve were soldered together. 
TO minimize the thermal contact resistence, the copper sleeve 
was then tinned (the cartridge heater was used to maintain the 
solder in molten state) and inserted as a unit into the middle 
portion of the test tube. The active boiling length of the 
test tube was therefore eight inches in the middle portion of 
the boiling tube. In order to compute the actual average heat 
Flux in the heated portion of the tube, a suitable correction 
was applied for the heat lost by natural convection out both 
ends. See Appendix E, Sample Calculation for details. 

To measure the wall surface temperature of the boiling 
tube, 8 thermocouples (Type-T Teflon coated copper-constantan; 
0.01 inch in diameter) were inserted into eight grooves 
machined on the outside of the copper sleeve. As shown in 
Figure 3.10, these thermocouples were located at different 
axial and circumferential locations. The exact locations of 
the thermocouples and dimensions of the thermocouple grooves 
are given in Figure 3.10. All the thermocouple grooves were 
axially machined from the location of the thermocouple hot 


junctions to the nearest end of the copper sleeve. 


alee 


C. CONDENSER SECTION 

The condenser was also a T-shaped container made of 
Corning Pyrex glass. It was identical to the evaporator. The 
position of the condenser can be seen in Figure 3.1. R-114 was 
condensed on a helical copper coil, which was inserted in the 
Pyrex-glass condenser. Copper tubing (3/8 inch outer diameter) 
was fabricated into a three inch diameter coil. The active 
condensation length was estimated to be 15 ft. 

The top portion of the condenser was connected to a 
portable, mechanical vacuum pump to remove noncondensible 
gases from the apparatus. The bottom of the condenser was 
connected to the evaporator via valve V5 in order to return 
the condensed R-114 liquid to either the evaporator or the 
reservoir. The coolant, i.e., water/ethylene glycol mixture, 
entered from the top portion of the condenser. The condenser 
was placed vertically and connected to the vapor outlet of the 
evaporator using a fabricated, L-shaped aluminum tube, two 
inches in diameter. A Bourdon gage with a range up to a gage 
pressure of 150 psi and a relief valve which was set to 20 psi 


gage were mounted on the L-tube. 


D. OIL ADDING SECTION 

To study the boiling performance of R-114/oil mixtures, a 
cylindrical aluminum oil reservoir, 6 inches in diameter and 
6 inches in height, and a graduated glass oil cylinder were 


installed above the evaporator as shown in Figure 3.1. The 
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graduated cylinder was 355 mm in length and had a diameter of 
25.4 mm. A resolution of 0.5 ml was achieved with the 
graduated cylinder. The oil reservoir was connected to the oil 
cylinder through valves V14 and V2. Refilling the oil 
reservoir was accomplished through valve V3 located on top of 
the reservoir. The addition of oil into the evaporator was 
achieved through V1 by gravity. The oil cylinder was refilled 


by gravity from the oil reservoir located above. 


E. COOLING SECTION 
1. Water-Ethylene Glycol Mixture Tank 

In order to store the water-ethylene glycol mixture, 
a special tank was manufactured. The total volume of the tank 
was 9243 in® (18.84 in x 18.84 in x 26.04 in) and it was made 
of 0.5 inch thick Plexiglas sheet. All sides of the tank were 
glued together with methylene chloride solution. The joints 
were held together with small screws for extra strength. The 
low thermal conductivity of Plexiglas was especially suited to 
minimize heat transfer (from room to water-ethylene glycol 
mixture) through the tank walls. The tank was placed on top of 
Square wood platform on the floor and all sides were insulated 
with 7/8 in thick rubber sheets. The cooling mixture contained 
13 gallons of ethylene-glycol and 25 gallons of distilled 


water. The freezing point of this mixture was about -25 deg C. 


1S 


2. R-502 Refrigeration Plant 

A 1/2 ton R-502 refrigeration plant was installed to 
cool the water/ethylene glycol mixture. Figure 3.12 shows a 
schematic of the R-502 refrigeration plant. It consists Gia 
compact-type, air-cooled condenser, a compressor, a receiver, 
a filter-drier unit, a pressure regulator, a temperature 
control switch and a thermostatic expansion valve. The 
evaporator of the R-502 refrigeration plant was constructed 
using a 3.8 inch copper tube which was run throuaqhwee 
countercurrent heat exchanger opposite the water-ethylene 
glycol mixture. The temperature of the water/ethylene glycol 
mixture was controlled by both a thermostatic expansion valve 
and a temperature control switch. The R-502 refrigeration 
plant was adjusted to keep the temperature of the cooling 
lrquid ateabouir —17 deqac. 

3. Pump and Control Valve 

An 8 gpm, 115 VAS Burks turbine-type, positive- 
displacement pump was installed on the floor and the 1 inch 
diameter suction side of the pump was directly connected to 
the water/ethylene glycol tank. Cooling liquid was pumped from 
the tank to the condenser through the control valve VC. Also, 
a by-pass valve V9 was placed before the control valve VC on 
the discharge line. The use of the by-pass line served two 
important purposes: (1) it avoided overloading the pump in the 


event valve VC is completely closed, and (2) it provided 
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proper mixing for the "warm" stream returning from the 
condenser. The by-pass valve required adjustment only at the 
highest heat fluxes to ‘satisfy’ proper cooling of the 


condenser. 


F. R-114 RESERVOIR 

An aluminum cylindrical reservoir, 9 inches in diameter 
and 10 inches in height, was placed vertically between the 
evaporator and condenser in order to store R-114 as a liquid. 
The liguid level of the R-114 could be observed by means of a 
Sight glass attached on the reservoir. The R-114 reservoir was 
connected to the vapor line through valve V7 and to the liquid 
line through valve V6. See Figure 3.1 for the arrangement of 


the reservoir. 


G. CHAMBER 

Pe slum enum seaame (42.03, an x 20.07 in x 24.02 in) was 
constructed to locate all the parts of the apparatus, except 
the cooling section. All four vertical sides of the frame were 
covered with 1/2 inch thick Plexiglas sheets and both left and 
right sides were provided with hinges to enable easy access to 
the components of the apparatus. Aluminum and plywood plates 
were used to cover the bottom and top sides of the frame, 
respectively. The valve bodies of Vl through V8 were placed 


inside of the front Plexiglass box. The whole frame was placed 


ie? 


above the water-ethylene glycol tank with aluminum Supports so 
that the system was very compact. 

One of the main advantages of this chamber was that the 
temperature surrounding the evaporator could be reduced 
relative to the ambient temperature. Also, in case of 
emergency, the thick Plexiglas chamber provides a safety 


barrier to personnel and data acquisition eQquipnene. 


oe INSTRUMENTATION 
1. Power Measurement 
A 240 volt AC source was used as the power supply, and 
it was adjusted by a variac in the range of 0-220 WoltsS tag 
O-5 amperes according to the desired heat flux at the surface 
o£ the boiling tube. Power input to the boiling tube ae 
measured with an AC current inductive sensor (output in volts) 
and a voltage sensor directly coupled to the variac oOluUtp@iie 
The voltage sensor was run through a AC-DC true Rite 
converter which output a proportional signal in volts. Figi@me 
3.12 shows a schematic representation of the power-measurement 
setup. Both the AC current sensor and the AC-DC true R.M.S 
converter were connected to the data acquisition/control umaiee 
2. Temperature Measurement 
Various temperatures were monitored throughout the 
system to include: 


i Boiling tube Gali (8 thermocouples at various 
longitudinal and circumferential positions) 


18 


Ze Liguid temperature (one thermocouple) 


cP Vapor temperature (two thermocouples), and 
4. Water/ethylene oeivie or mixture temperature (one 
thermocouple) 


The locations of the wall thermocouples in the sleeve of the 
boiling tube are shown in Figure 3.5. The liquid and vapor 
thermocouples were inserted into the three specially 
manufactured thermocouple housings. Figure 3.14 shows a 
schematic of these thermocouple housings. The stainless-steel 
portion minimizes (owing to low thermal conductivity) errors 
resulting from the axial conduction of heat from the 
Surroundings. The copper tip of the housing helps to minimize 
the temperature drop from the area being measured to the 
thermocouple location (owing to the high thermal conductivity 
of copper). 

All the temperature measurements were accomplished by 
30 gage copper-constantan thermocouples. Each thermocouple 
measurement was read directly by a Hewlett-Packard 3497A data 
acquisition system, which was controlled by a Hewlett-Packard 
9826 computer. Each thermocouple was scanned twenty times over 
5 seconds and the readings averaged to obtain a more accurate 


measurement. 
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a) Corning Pyrex Glass Evaporator (D x DR = 402x51 mn, 


L = 178 mm, Ly= 127 mn) 





INSERT 
“A 


{ 
b) Cast Iron Flange and Gasket (d,= 190mm, dg= 210mn, 


L,= 14mm, A = Doe 


Figure 3.3 Schematic of the Pyrex Glass Evaporator 
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Frgure 3°26 Photographs of GEWA-YX Tube and Fin 
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Figure 3.7 Schematic and Photograph of High Flux Surface 
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Figure 3.8 Schematic and Photograph of 
Thermoexcel-HE Surface 
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Figure 3.9 Photographs of Re-Entrant Cavity Surfaces 
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IV. DATA ACQUISITION AND REDUCTION 


A. DATA ACQUISITION AND STORAGE 

A Hewlett-Packard 3852A automatic data acquisition unit 
was used to read temperatures from the thermocouples and to 
read current and voltage values of the cartridge heater from 
the AC current sensor and the AC-DC true RMS converter. A 
Hewlett-Packard 9000 Series computer was used to control the 
measurements done by the 3852A, analyze the collected data and 
Store it. 

The iterative data collection/reduction program DRP8 was 
loaded and run. Information was entered through the keyboard 
to prompt the data acquisition unit when to take data. Channel 
assignments are listed in Table I. The raw data was processed 
and transferred to a file on the computer’s hard drive. A 


printout of the data reduction was also provided. 


B. DATA REDUCTION 

Following data acquisition for each data point, results 
were computed according to the stepwise procedure outlined in 
the next section, and then printed out using a Hewlett-Packard 


Inkjet printer. Graphs were plotted using commercial software. 
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STEPWISE DATA-COLLECTION AND SOLUTION PROCEDURE 


Input name of user-specified file to be stored on 
computer hard drive. 


Select tube type (all dimensions of the boiling test 
tube are included). 


Input desired heat flux (W/m) and saturate 
temperature (°C) of the boiiing liquid. 


Set desired heat flux by adjusting VARIAC rheostat. 


Set saturation temperature by adjusting flow of coolant 
through condenser coils with control valve VC. 


Once Saturation temperature iS achieved, wait for 
steady-state conditions (at least 5 minutes) prior to 
taking data readings. 


Prompt data acquisition unit to scan all channels 
listed in Table I (thermocouples, AC current sensor and 
AC-DC true RMS voltage converter). All channel readings 
are made in volts and stored in user specified file. 


Convert these voltage readings to corresponding units 
(temperature in °C, current in amperes, voltage in 
volts). Karasabun [Ref. 15] describes in detail 
conversion equation for temperature. See Appendix B- 
Data Acquisition Apparatus Calibration for details of 
current and voltage conversion. 


Compute the heat-transfer rate from the cartridge 
heater. See Appendix D-Sample Calculations. 


Compute the average wall temperature of the boiling 
tube and calculate the wall superheat of the current 
data set. See Appendix D-Sample Calculations. 


Compute the physical properties of R-114 using given 
correlations at film temperature. See Appendix D-Sample 
Calecumar dome 


Compute the HabuGel-Convece mon heat-transfer 
coefficient of R-114 from the smooth non-boiling ends 
of the test tube. See Appendix D-Sample Calculations. 


Compute heat losses from the non-boiling ends of the 
boiling tube. See Appendix D-Sample Calculations. 
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Calculate the heat flux from tube to the refrigerant. 
See Appendix D-Sample Calculations. 


Galeweate “Ene milcar “lransnmer cCOeELLICient of the R-114 
heom “rhe -Sbomling tube. See Appendix D-Sample 
Calculations. 


Store the heat flux versus wall superheat values for 
each data set in user-specified file. 


Use commercial software, Harvard Graphics, to plot 
data 


TABLE I. HP 3497A CHANNEL ASSIGNMENTS 


|Channet | assignment 
| 500-507 _| Boiing tube wall temperature 


514 Auxiliary heater current 
sensor 
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V. EXPERIMENTAL PROCEDURE 


A. PREPARATION 
1. Vacuum test of the Apparatus 
Upon changing the tube and reassembling the apparatus, 
the system was evacuated down to approximately 25 in. Hg. by 
a portable mechanical vacuum pump through valves V1l1 and V8. 
The apparatus was allowed to stand for 30 minutes under vacuum 
to observe any possible leaks. During this’- period, 
thermocouples were connected to the data acquisition system, 
the electrical integrity of the tube heater was checked and 
the tube heater connected to the variac panel. If a leak was 
detected (i.e. an observed rise in pressure), a pressure test 
was conducted to isolate the source. (See V.A.2.) 
2. Pressure Test of the Apparatus 
In order to detect sources of leaks, the apparatus was 
pressurized with air up to 15 psi gage and a soap/water bubble 
test was carried out upon suspect joints. All detected leaks 
were successfully and systematically fixed. 
3. Charging the Apparatus with R-114 
Upon completing the pressure tests (if any), the 
evaporator of the apparatus was filled with R-114 liquid up to 
a marked position (20 mm above the top of the boiling tube) 


using the following procedure. 
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IL Valve V7 was opened to allow the pressures within the 
reservoir and the evacuated apparatus to equalize. It 
was noted that the liquid R-114 within the reservoir 
boiled since the equilibrium pressure was less than the 
R-114 vapor pressure at room temperature. 


a Valve V6 was opened to allow the liquid R-114 to drain 
into the evaporator by gravity. 


oy At the designated evaporator level, valves V6 and V7 
were closed to isolate the reservoir. 


4. Degassing and Data Acquisition Channel Check. 


il With the condenser operating, the boiling tube was run 
at a high flux of about 100 kW/m* for ten minutes in 
order to de-gas both the tube surface and refrigerant. 
Care was taken not to exceed a pressure of 15 psi gage 
(well below manufacturer recommendation) within the 
apparatus. 


Za Any noncondensible gases present collected in the top 
of the condenser. These were then removed uSing the 
vacuum pump through valves, V8 and V1l1. 


on The program, SETUP8, was run to check output on all 
thermocouple channels as well aS power output. If an 
erroneous reading was detected, then appropriate action 
was taken. In the case of a faulty boiling tube wall 
thermocouple, the faulty thermocouple was tagged for 
future exclusion in data acquisition procedure. (Each 
thermocouple had X thermocouples embedded in its tube 
wall and the loss of one made no difference to the 
average wall temperature). 


4. The apparatus was shut down and the boiling tube 


allowed to soak in the refrigerant overnight. This 
allowed for the surface to become wetted. 


B. NORMAL OPERATION 
The following procedure was followed to obtain the heat- 
transfer coefficient of pure R-114 and R-114/oil mixtures from 


the boiling tube being tested: 


ow 


The R-502 refrigeration unit waS operated 1-2 hours in 
advance in order to reduce the temperature of the 
water-ethylene glycol sump to a minimum of -8 °C. 


The data acquisition/control unit, computer and variac 
panel were switched on. 


The computer program Setup8 was loaded and run: 

a. All the data acquisition channels were rechecked. 

b. A power output of approximately 5W was input to 
the boiling tube. This has been measured to 
produce a heat flux of 500 to 600 W/m’ in all tubes 
tested which facilitated reaching the first data 
point on the increasing flix 7un- 

om The temperature of the refrigerant was slowly 
reduced down to 2.2 °C by circulating a “sma 
amount of coolant through the condenser, regulated 
by control valve, VC. This reduction was monitored 
ee coincide with the reduction Lil sump 
temperature. 


The iterative computer program DRP8 was loaded and 
Elin 


Two data runs were made: an increasing heat flux run 
and a decreasing heat flux run wherein the heat flux 
was incrementally increased or decreased. Ten different 
heat fluxes (0.6, 1, 2, 3.5, 6, 10, 20, 35, 60, andwam 
kW/m’) were selected for each increasing or decreasing 
heat f£luxedata run. 


The desired heat flux and saturation temperature were 
input to the program as reference points for each data 
Pole. 


The variac was adjusted to set the actual heat flux 
which was continuously compared to the desired heat 
flux by the program until they agreed within 2 percent. 


The control valve VC was adjusted to regulate the flow 
of cooling liquid through the condenser to maing@aen 
nearly constant saturation temperature at a given heat 
flux. Desired versus actual saturation temperatures 
were monitored continuously by the program until they 
agreeqd = 0. ec. 


For each data point, conditions in the evaporator were 
allowed to stabilize for at least 5 minutes prior to 
measuring the raw data. The following raw data were 
measured and stored in a user specified file: boiling 
tube wall thermocouple readings, Ieieqt wel bulk 
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thermocouple readings, vapor thermocouple readings, 
sump thermocouple readings, current sensor readings, 
and voltage sensor readings. 


10. Two data points were taken at a given heat flux and 
Saturation temperature to comprise a data set. The 
following processed data were recorded as a printout: 
wall temperatures of the boiling section, liquid bulk 
temperatures, vapor temperature, sump temperature, wall 
Superheat, heat transfer coefficient of the R-114/R- 
114-oil mixture and the actual heat flux. 


11. For each data set, the above procedure beginning with 
step 5 was repeated. 


tH. Table Ii provides a listing of all data runs. 


TABLE II. LISTING OF DATA RUNS 
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Run — Flux (%) 
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Data Data File Heat Oil Purpoas 
Run — Flux (%) 
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| Data Data File Heat Oil Purpose | 
Run # Flux (%) 
DATO901D11 eae |p ie 


DATO9061I10 





DATO906D10 a DATA 

SM = Smooth GK-26 = GEWA-K 26 fpi GK-40 = GEWA-K 40 fpi 

HF = High Flux GT-19 = GEWA-T 19 fpi GT-26 = GEWA-T 26 fpi 
TB = Turbo-B GY-26 = GEWA-YX 26 fpi T-E = Thermoexcel-E 

T-HE = Thermoexcel-HE 

I = Increasing Flux D = Decreasing Flux 

CAL = CALIBRATION DATA DATA = BASELINE DATA 

REP = REPEATABILITY DATA DG = DEGASSING DATA 
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VI. RESULTS AND DISCUSSION 


A. REPRODUCIBILITY 

To test the reproducibility of the experimental data, 9 
data runs were repeated on different days. All data runs were 
conducted at a saturation temperature of 2.2 °C. Figure 6.1 
shows a comparison of two pairs of runs, 13, 14, and 43, 44 
for increasing and decreasing heat flux. It can be seen that 
there is excellent agreement between both the increasing and 


decreasing heat flux runs. 


B. COMPARISON OF DATA WITH PREDICTION 

To check the general validity of the data obtained, four 
well-known correlations, two for natural convection and two 
for nucleate pool boiling, were plotted and compared with the 
smooth tube data for pure R-114. The two natural convection 
correlations used were Churchill and Chu [Ref. 1] and a more 
recent update Churchill and Usagi [Ref. 2]. The two nucleate 
pool boiling correlations used were: Rohsenow [Ref. 1] and 
Stephan-Abdelsalam [Ref. 3]. One of the first correlations 
developed, the Rohsenow correlation is based upon the physics 
of pool boiling heat transfer. It applies only for clean 
surfaces and when used to estimate heat flux, errors can 
amount to + 100%. The Stephan-Abdelsalam correlation for 


refrigerants was developed from application of regression 
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analysis to a large amount of existing data. Application cera 
large number of pure substances of widely differing thermal 
properties is remarkably simple. Figure 6.2 shows the plotted 
data and correlations. It can be seen from the plot that there 
is excellent agreement for natural convection and not bad 
agreement in the nucleate boiling region. The slightly worse 
agreement for nucleate boiling can be attributed to the more 


complex mechanisms at work in this region. 


C. EFFECTS OF DEGASSING 

Barly experiments (Runs 1-6) conducted with the High Flux 
tube pointed out the significant effect of degassing both the 
tube surface and refrigerant. It was observed that tubes that 
were not vigorously boiled after placement into the apparatus 
and not allowed to settle overnight, tended to nucleate at 
very low heat fluxes the following day when conducting an 
increasing heat flux run. Similar effects were observed if the 
apparatus was allowed to stand undisturbed for several days. 
The most extreme effects were seen for the re-entrant cavity 
tubes. Figure 6.3 shows the change in behavior (i.e. for 
gassed and degassed) for a Thermoexcel-E tube for an 
increasing heat flux run. For the degassed case, an extreme 
temperature overshoot was observed, which indicates a large 
number of nucleation sites were deactivated. Once all 
nucleation sites were activated, the performance of both cases 


was identical. It can be surmised that the entrapment of vapor 
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bubbles in surface cavities as well as the outgassing from the 
Teflon O-rings of the rig over time, enhanced the nucleation 
on the tube surfaces. Vigorous boiling removed those gases 
meom beth surface and liquid. 


D. BOILING PERFORMANCE OF ENHANCED TUBES IN PURE R-114 
AND R-114/OIL MIXTURES 


The results of the 74 data runs are discussed with 
references to the figures (Figures 6.1 to 6.80) that are 
provided at the end of this chapter. Performance of each tube 


will be presented and discussed as follows: 


i HoOtmwoare R- 114 
Zs For R-114/oil mixtures (3% and 10% by weight) 


Bis Comparison of pure R-114 and R-114/oil mixtures for 
increasing heat flux runs. 


4. Comparison of pure R-114 and R-114/oil mixtures for 
decreasing heat flux runs. 


By Comparison to similar tube types (i.e. finned - as 
applicable for each R-114/oil mixture for both 
increasing and decreasing heat flux runs) 

1. Boiling Performance of Smooth Tube 
Figures 6.4, 6.5 and 6.6 show the heat transfer 
performance of pure R-114, R-114/3% oil mixture and R-114/10% 
oil mixture respectively, boiling from a smooth copper tube. 
Figures 6.7 and 6.8 show the comparative performance for the 
three refrigerant/oil mixtures on increasing and decreasing 
heat flux respectively. It can be seen that in Figure 6.7 in 


the natural convection region there is slight degradation with 
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increases in oil. However, in the nucleate boiling region 
there is significant degradation with increasing oil 
concentration. Wanniarachi et al. [Ref. 6] reported similar 
behavior for smooth tubes. This behavior was attributed to two 
competing effects: (1) the ‘choking’ of the tube surface by an 
oil rich layer which develops as the more volatile refrigerant 
is boiled off; () the diffusion of the miscible oil rich layer 
back into the bulk fluid. In the natural convection regen. 
can be surmised that the diffusion effect predominates while 
in the nucleate boiling region the ‘choking’ effect eventually 
overwhelms the diffusion. This degradation is seen again in 
Figure 6.8. It can be seen that in Figure 6.8 that as 
conditions approach natural convection along the decreasing 
heat flux curve, the three mixtures perform similarly as 
nucleation sites die out. 
2. Boiling Performance of Finned/Modified Finned Tubes 

Figures 6.9, 6.10 and 6.11 show the heat transfer 
performance of pure R-114, R-114/3% oil mixture and R-114/10% 
O1l mixture respectively, boiling from a standard 26 fpi tube, 
(GEWA-K). At a heat flux of 35 kW/m’, heat tramegen 
enhancement compared to the smooth tube for pure R-114, 
R-114/3% oil and R-114/10% o1i1 was 2.4, 2.9 and (eee 
respectively. Figures 6.12 and 6.13 show the comparative 
performance of the three refrigerant/oil mixtures. on 


increasing heat flux and decreasing heat flux runs 
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respectively. On increasing heat flux and decreasing heat flux 
runs, the finned tube only shows a small degradation in both 
the natural convection and nucleate boiling regions. The 
smooth tube only shows small degradation in the natural 
convection region. Also, at the higher heat fluxes, the 
R-114/3% oil mixture shows a slightly better performance than 
the pure R-114 and R-114/10% oil mixture. This phenomenon was 
observed for all finned tubes, however, the reasons for such 
behavior are not fully understood; it may be due to bubble 
‘scouring’ between the fins. This small increase in 
performance at low oil concentrations agrees with results 
reported by Stephan and Mitrovic [Ref. 15]. 

Figures 6.14, 6.15 and 6.16 show the heat transfer 
performance of pure R-114, R-114/3% oil mixture and R-114/10% 
oil mixture respectively, boiling from a GEWA-K 40 fpi tube. 
Figures 6.17 and 6.18 show the comparative performance of the 
three refrigerant/oil mixtures on increasing heat flux and 
decreasing heat flux respectively. Similar behavior to the 
GEWA-K 26 fpi tube was observed including the improved 
performance at higher fluxes at low oil concentrations (3%). 

Figures 6.19, 6.21, and 6.23 show the comparative 
performance of the three R-114/oil mixtures boiling from GEWA- 
K 26 and 40 fpi tubes on increasing heat flux. For all three 
oil concentrations, the GEWA-K 40 fpi tube outperforms the 
GEWA-K 26 fpi and smooth tubes consistently in the nucleate 


boiling region. At a heat flux of 35 kW/m* the GEWA-K 40 fpi 
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and the GEWA-K 26 fpi had heat transfer enhancements of 4.1 
and 3.1 respectively over the smooth tube for pure R-114. 
Similar enhancements were seen at R-114/3% oil and R-114/10% 
oil mixtures. See Table III at end of this chapter. In the 
natural convection region, the results were mixed. Neither 
tube predominated consistently for pure R-114 and R-114/oil 
mixtures. Figures 6.20, 6.22 and 6.24 show similar comparisons 
on decreasing heat flux. It can be seen that the GEWA-K 40 fpi 
performs best in all three cases except at very low fluxes 
where results were less certain. However, the calculation for 
the heat flux did not take into account the actual increases 
in surface area for the finned tubes over the smooth tube. A 
fin root diameter was used to calculate surface area. The 
actual area increase is of the same magnitude as the heat 
transfer enhancements seen, indicating that both smooth and 
finned tubes give similar heat transfer performance. To 
demonstrate this, Figure 6.9, the GEWA-K 26 fpi tube in pure 
R-114, is replotted in Figure 6.81 usimg the actual ema 
Surface area. The ratio of actual fin surface area to root 
diameter area was a factor of 4. Actual surface heat flux was 
calculated by dividing the root diameter surface heat flux by 
four. It can be seen in Figure 6.81 that in the natural 
convection region the GEWA-K 26 fpi tube performs comparably 
to the smooth tube. However, in the mixed boiling and nucleate 
boiling regions the GEWA-K 26 fpi tube shows an enhanced 


performance over the smooth tube up to three, which indicates 
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there are other mechanisms involved besides increased surface 
area. 

Figures 6.25, 6.26 and 6.27 show the heat transfer 
Pemrornance Of pure R-114, R-114/3% oi11 mixture and R-114/10% 
oil mixture respectively, boiling from a modified fin tube, 
GEWA-T 19 fpi. At a heat flux of 35 kW/m*, the heat transfer 
enhancement compared to the smooth tube for pure R-114, 
R-114/3% oil mixture and R-114/10% oil mixture was 3.1, 4.3 
and 5.2 respectively. Figures 6.28 and 6.29 show the 
comparative performance of the three refrigerant/oil mixtures 
on increaSing and decreasing heat fluxes respectively. Similar 
to the GEWA-K type tube, only a slight degradation is observed 
in both the natural convection and nucleate boiling regions. 
Again at higher heat fluxes, the R-114/3% oil mixture 
performed best. 

Figures 6.30, 6.31 and 6.32 show the heat transfer 
Pewstomumance of pure R-114, R-114/3% oil mixture and R-114/10% 
oil mixture respectively, boiling from a GEWA-T 26 fpi tube. 
At a heat flux of 35 kW/m’, heat transfer enhancement compared 
momeme Smooth tube for pure R-114, R-114/3% oil mixture and 
R-114/10% oil mixture was 3.7, 4.6 and 4.8 respectively. 
Figures 6.33 and 6.34 show the comparative performance of the 
three refrigerant/oil mixtures on increasing and decreasing 
oil mixtures respectively. It can be seen that at higher heat 
fluxes, the R-114/3% oil mixture performed best and there was 


Significant degradation in performance for the R-114/10% oil 
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mixture compared to the smooth tube. At lower heat fluxes, the 
pure R-114 outperformed the refrigerant/oil mixtures. It can 
be surmised that the ‘choking’ effect predominates for the 
refrigerant/oil mixtures. 

Figures 6.35, 6.37 and 6.39 show the comparative heat 
transfer performance of each refrigerant/oil mixture boiling 
from the GEWA-T 19 and 26 fpi tubes for increasing heat 
fluxes. Figures 6.36, 6.38 and 6.40 show similar comparisons 
for decreasing heat fluxes. It can be seen that in the 
nucleate boiling region at the higher heat fluxes that the 
GEWA-T 26 fpi tube performed best. At the lower heat fluxes, 
in the natural convection region for an increasing heat flux 
run the tubes performed equally. For a decreasing heat flux 
run, the GEWA-T 19 fpi performed best. Recalling the channel 
structure of the GEWA-T tube suggests more complex phenomena 
than simple increase in surface area. Indeed Marto et al. 
[Ref. 16] have found that the gap width with GEWA-T tubes has 
a Significant effect on boiling performance. Down to some 
limiting value, decreasing the gap width generally increases 
heat transfer coefficient. The enhancement can be attributed 
to strong interaction between heat transfer and hydrodynamic 
effects within GEWA-T channels. 

Figures 6.41, 6.42 and 6.43 show the heat transfer 
performance of pure R-114, R-114/3% oil mixture and R-114/10% 
Oil mixture respectively, boiling from another modified fin 


tube, GEWA-YX 26 fpi. At a heat flux of 35 kW/m’, heat 


a 


transfer enhancement compared to the smooth tube for pure 
R-114, R-114/3% oil mixture and R-114/10% oil mixture was 3.4, 
4.3 and 4.4 respectively. Figures 6,44 and 6.45 show 
comparative performance for the three refrigerant/oil mixtures 
on increaSing and decreasing heat fluxes respectively. It can 
be seen that in the natural convection region slight 
degradation in performance occurs. At the higher fluxes in 
the nucleate boiling region, the R-114/3% oil mixture 
performed best as seen with other types of finned tubes. 

Figures 6.46, 6.48 and 6.50 show the comparative 
performance for each refrigerant/oil mixture boiling from the 
GEWA-K, GEWA-T and GEWA-YX 26 fpi tubes for increaSing heat 
fluxes. Figures 6.47, 6.49 and 6.51 show similar comparisons 
for decreasing heat fluxes. Both the modified finned tubes, 
GEWA-T and GEWA-YX, show marked increases in performance over 
the standard finned tube, GEWA-K, in the nucleate boiling 
region. Results were not so clear however in the natural 
convection region, possibly due to variation in surface area. 

3. Boiling Performance of High Flux Tube 

Figures 6.52, 6.53 and 6.54 show the heat transfer 
performance of pure R-114, R-114/3% oil mixture and R-114/10% 
Oil mixture respectively, boiling from the High Flux tube. At 
a heat flux of 35 kW/m’, heat transfer enhancement compared to 
the smooth tube for pure R-114, R-114/3% oil mixture and 


R-114/10% oil mixture was 6.4, 6.2 and 3.8. The High Flux tube 


ou 


displays a much larger relative temperature overshoot compared 
to the smooth tube and its point of incipience occurs at a 
much lower heat flux. Accuracy of the data was greatest at 
high heat flux and large superheat values (+ 3.8%) and most 
uncertain at low heat flux and small superheat values 
(+ 17.15%). See Uncertainty Analysis-Appendix E. It can be 
seen that at higher heat fluxes that the High Flux tube in the 
R-114/10 oil mixture performed almost equally to the smooth 
tube. At a heat flux of 100 kW/m’ the heat transfer 
enhancement compared to the smooth tube was 1.1. Wanniarachchi 
et al. [Ref. 7] reported similar results. The marked decrease 
in boiling performance was attributed to the creation of an 
oil-rich layer within the boiling pores. The superior bowie, 
performance for R-114/10% oil mixture compared to the smooth 
tube is completely recovered when the heat flux is decreased. 
It can be seen that in the natural convection region the 
performance of the High Flux tube is comparable at all oil 
concentrations to the smooth tube which indicates there is no 
effect of either tube type or oil concentration in this 
region. Figures 6.55 and 6.56 show the comparative performance 
of the three refrigerant/oil mixtures on increasing and 
decreasing heat fluxes respectively. The extreme rate of 
degradation of performance of the High Flux surface at 10% oil 
concentration with increasing heat flux is clearly seen as 


well as its complete recovery as the heat flux is decreased. 
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4. Boiling Performance of the Thermoexcel Tubes 

Figures 6.57, 6.58 and 6.59 show the heat transfer 
performance of pure R-114, R-114/3% oil mixture and R-114/10% 
oil mixture respectively, boiling from the Thermoexcel-E Tube. 
At a heat flux of 35 kW/m’, heat transfer enhancement compared 
to the smooth tube for pure R-114, R-114/3% oil mixture and 
R-114/10% oil mixture was 5.7, 5.3 and 5.2 respectively. 
Figures 6.60 and 6.61 show the comparative performance of the 
three refrigerant/oil mixtures on increasing and decreasing 
heat fluxes respectively. As seen with the High Flux tube, the 
Thermoexcel-E tube performed equally to the smooth tube in the 
natural convection region for all refrigerant/oil mixtures. 

Figures 6.62, 6.63 and 6.64 show the heat transfer 
performance of pure R-114, R-114/3% oil mixture and R-114/10% 
oil mixture respectively, boiling from the Thermoexcel-HE 
tube. At a heat flux of 35 kW/m’, heat transfer enhancement 
compared to the smooth tube for pure R-114, R-114/3% oil 
mixture and R-114/10% oil mixture was 4.8, 5.1 and 4.8. 
Similar performance to the Thermoexcel-E tube was observed. 
Figures 6.65 and 6.66 show the comparative performance of the 
three refrigerant/oil mixtures on increasing and decreasing 
heat flux respectively. At a higher heat flux of 100 kW/m’ the 
heat transfer enhancements compared to the smooth tube for the 
R-114/3% oil mixture and R-114/10% oil mixture was reduced to 


geo ana 1.9. 


DS 


Figures 6.6/7, 6.69 and 6.71 ‘show the comparaei ce 
performance of each refrigerant/oil mixture boiling from both 
the Thermoexcel-E and HE tubes for increasing heat fluxes. 
Figures 6.68, 6.70 and 6.72 show similar comparisons on 
decreasing heat fluxes. As discussed earlier both tubes showed 
improved performance over the smooth tube in the nucleate 
boiling region. It can be seen that the Thermoexcel-HE tube 
performed marginally better than the Thermoexcel-E at high 
heat fluxes. In the natural-convection region both tubes 
performed comparably to the smooth tube. Wanniarachchi et al 
[Ref. 8] reported similar behavior for Thermoexcel-E and 
Thermoexcel-HE tubes. It can be surmised that in the natural 
convection region the small re-entrant cavities of both tubes 
do not increase the total boiling surface area like fins. The 
Thermoexcel-E and HE tubes ‘appear’ smooth and would be 
expected to perform comparably to the smooth tube which was 
indeed seen. 

5. Boiling Performance of the Turbo-B Tube 

Figures 6.73, 6.74 and 6.75 show heat transfer 
performance of pure R-114, R-114/3% oil mixture and R-114/10% 
oil mixture respectively, boiling from the Turbo-B tube. At a 
heat flux of 35 kW/m’, heat transfer enhancement compared to 
the smooth tube for pure R-114, R-114/o1W mixture Yawe 
R-114/10% oil mixture was 6.2, 6.7 and 5.6 respectively. As 


seen with all previous re-entrant tubes tested, comparable 
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performance with the smooth tube is observed in the natural 
convection region and marked improved performance over the 
smooth tube is observed in the nucleate boiling region. 
Figures 6.76 and 6.77 show the comparative performance of each 
perrigerant/oll mixtures boiling from the Turbo-B tube on 
increasing and decreasing heat fluxes respectively. Similar to 
the other re-entrant cavity surfaces tested, the R-114/10% oil 
mixture had the greatest rate of degradation for increasing 
heat flux in the nucleate boiling region. 
6. Overall Performance of Smooth and Enhanced Surfaces 

Figures 6.78, 6.79 and 6.80 show the comparative 
performance of 8 of the 10 tube surfaces tested. The other 
two, Thermoexcel-E and GEWA-T 19 fpi, performed similarly to 
the Thermoexcel-HE and GEWA-T 26 fpi respectively, and so are 
not included. Three distinct groups of tubes can be identified 
based upon boiling heat transfer performance at all oil 
concentrations. These are: (1) smooth, (2) finned/modified 
finned and (3) re-entrant cavity. Within the finned/modified 
finned group, it can be seen that the GEWA-T is the best 
performer. Its enhanced performance was attributed to its 
channel geometry. The High Flux tube in R-114/10% oil mixture 
performed comparably to the smooth tube (heat transfer 
enhancement was 1.1) at a heat flux of 100 kW/m’. The severe 
degradation in performance for the High Flux tube can be 


attributed to the ‘choking’ of the porous surface. Table III 


os 


Shows numerically the enhancement in performance over the 
smooth tube for all three refrigerant/oil mixtures boiling 
from each of the tubes for three heat fluxes of 10, 35 andi 
kW/m?. It can be seen at the moderate heat flux of 35 kW/m’, 
the finned/modified finned tubes show enhanced performances of 
2.4 to 5.2 over the smooth tube while the re-entrant cavity 
tubes show enhancements of 3.8 to 6.7 over the smooth tube. 
The effect of oil concentration is Significant at high heat 
fluxes. At a heat flux of 100 kW/m’ for pure R=114, the finmed 
and re-entrant cavity tubes show comparable enhancement 
compared to the smooth tube. For R-114/10% oil mixtures at a 


heat flux sof st00' kW/m*, the finned tubes performed secu 


56 


QOL 


Bul| 10g 
1YUsId! Du] 


Se idlieeNe S eS 


woOi4 OuUl|!0G bLL- 


VMI9 
4H 3und 


4AO4 UOS! 4weduoy A! |1qeyesdsy 1'°G aeunbig 


OL 


Cyxd/C1eSL-| | eM) 





rE LO 
OGL 
DOOL 
OOOGOL 
'ADEeq isnbBny cL 
Tou a sneny vcr 
| ~498q AINE SL 
AG eo) A aes | 
OGOGOL 


COW /M/9 


a7 


SUO!1]2| 9440) UMOUD ULIM 
eqni YU YOOWS eB woud 6Bul|!0g pLL-y 94nd 
JO} UOSI 4edwoj SsouUeWUOJU3Sq 2@'G sunBl4 


Cy)/CeSL-1 1 eMLD 
OOL OL L 






iGesn-| | tusunyy 


Nyd-1 | !yoanug 


we|es| spay -ueyuds\sS 


MOUSSUOY 
Bul] 1og 
qUuds!d!i du} 





LQ 
OOQOL 


OOOL 


OOOOL 


xn|}4 Buisesuosg ae 


xn|4 Bulseaudu| ‘ 





OOOOOL 
C2W/M)/0 


Oye, 


pin|jj4sseseguns Sulsseb-3sg jo 498445 
4-|eoxsowusy, wouy Bul; 1og ple—-y eund 
AO4 UOSiUuedwo) sdueWUCusg €'GQ SunBl4 


CxI/CIeSL-| | eMLD 


OOL OL L LQ 
DOL 


XxN|4 498g psessebaq 


xN|}4 Adu) psessebdag 
XM “59 q 


<i esa aK 





3 OOOL 

*K 0 6 
Bu! | 10g * " ee 
7USICT Sue" ; 

alee (al 
*K 
: + BK oooOL 
ob GK 
a + 
+ 2 
m OOOOOL 


EIS 


CELW/M D/O 


SBS) 


OOL 


Boe INS sont uU2aoouws 
WOi44 6U!l!10G pLL-y Sung 
AO} UOSIUedWO) SdUeWUOJU3Sq p'gG eunb! +4 


Cyad/CVeSL-1 | eML) 
ate L E26 
OOL 


OOOL 


QOOOL 


xNf4  4Deq + 


<a | IOUS 








——— OOOOOL 
C2W /M)/9 


60 


OOL 





OL 


SOP LUNG SQn{L YAOouWSs 
wo44 Oul1(!og Sunix!IW 1/0 
AO} UOSIUNedUOD SdUBEWUOJNSG GS'Q SUNHI4 


C7 Cres en) 


*E /PLL -u 


L L’O 
OOL 
QOOL 
OOOOL 
xN|4 Bulsesussq 
x1 | 4 Ou)Ssestsu, % 
QOOOOOL 


C2LW/M)/9 


61 


BsesunsS sqny, u.oows 
WO4J Bul} !O0G SUunixIW 110 %OL/bLL-Y e4Nnd 
AO} UOS! 4RAdWOJ SOUBEWUO}U3Sg 9G'G SuNnBi4g 


CA97C12S1-1) | eM) 


OOL OL L L'O 
DOL 
x 
ve 
x 6 OOOL 
x 
o 
x 
x o 
vo 
sx o 
x oO OOOOL 
x 
A 
© 
x 
© 
Z xN}4 6ul;seausag © 
~ xn|4 BHuisesusu; »x 
R 





OOOOOL 
C2 W/M)/0 


62 


eqn, YyAOOWS WOUY xn|4 Bulseaudu | 


SOUNIXtW 110 SOL 89 KE “%O /bPLL-H Bu! 10g 
AO}, UOS!I UPdWO) SdUBEWUOJUSsq ('°G SuNnBle 


Cyo)/CVeSSL-| | PML 


OOL ae L 
| 
x 
HK 
x 
Ke 
mK 
*K 
x 
ee 
oe 
a? ., oe 
X ks 
x 
“ ane 
| 
| a 
x 
x 


L°O 
OOL 


OOOL 


QOOCOL 





OOOOOL 
CeUW /M) /9 


63 


OOL 





SdeVJUNG Sqn, YIOoOWS WOoUuy xn|4 BHuisesaussag 


SOUNIXIW 110 %OL 8 %E “%O /PbLL-H Bul) 1og 
AO4Y UOS!I 4edwog sodueWUOsUusq B'Q SuNnBIY 


Cx J/CVeSL-| | OmML) 
OL 2 


LO 


C2 W/M D/O 


DOL 


OOOL 


OOOOL 


OOOQOOL 


64 


DOL 





cant !di 92 4-vMa9d 
WO44 Bul} !Og bLL-y eund 
404 UOS! UedWO) SdUReWUOYUaq 6°99 auNnB! 4 


Cy)/C1eSL-| | eML) 
OL L ie 


——— OOL 





OOOL 
OQOOOOL 
xN{4 Bulsesussqg 77 
xN|}4 Bursesudu| 4 
UAeeus == 
OOOOVO0L 


Ce@LW/M I/O 


65 


OOL 


WOU-4 SUNYxXIW 


eqant 1d} 92 y»-wMa9d 


[10 %E/bLL-y Bull 1og 


4O4 YUOSI4edWuoOy) Sd.ueWUOJUdqg OL'g9 eunbi4s 


OL 





Cad/Cies,-1) 1) em) 


x0 


bea 
OOL 





OOOL 


OOCOL 


xN}4 4daq 


Xiah Su 


U.OOWS ie 





ee G00): 


66 


OOL 


OL 


sqnt !d} 92 y-VMA9 


WOA44 SANIXIW 1!0 SOL /PLL 
4O4 UOS!I Uedwoyj) SsduUeWUOJUSsg LE GQ aunBi4s 


Cxd/C1eS1-1 1 eM) 


Y Bul | 10g 





Pat 
OOL 
OOOL 
OOOOL 
xN|4 4d38q x 
XN|4 ADU] 
ULOoiie 78 
OOOOOL 


COLW/M I/O 


67 


OOL 


eqn! !d} 92 A-VMAN Woy 
SOUNIxXIW 110 %OL 8 %E “%O /bLL-H Bul] 10g 
AO{4 UOSIUPdWODJ SdUePWUOJUsq Z@L'gQ aunbi4 


CxaJ/C1eSL-1 1) eM) 
OL L 








LO 
OOL 
A | 
4 
ae V 36 
t - 
a HS} OOOL 
+e 
25 VB 
“+ 
*K 
V 
ou ‘a 
aK. S 
we x *OL 
eS ae %E oocaL 
4 Yt a 0 x %0 
AT x %OL UWS 
* %E UWS 
V. 
x 4 is %O UWS . 
V xn 6uiseaudu 
ne yy is | | i 
a a. —= o0000L 


C2 W/K I/O 


68 


OOL 


eqny 


SOUNIX IN 


OL 


1d} 92 AX-VMAO wou, 


1!'0 %OL 8 %E “%O /PLL 
jAO4 UOS! UedwoO) S2UBWUOJUSg EL'Q eunbBi4s 


CA 7oReSsi (Tren 








Y 6ui|1iog 


LO 
OOL 


OQOOL 


OOOOL 
%O 
%OL UWS 
%E YUAWS 
40 YWS ° 
xN|4 BHul1sesusagq 
OOOOOL 


Co W/M I/O 


69 


OOL 


OL 





eQqnt !dJ Oe X-VMI9 


WOj4 6uUl|'!og bLL-Y 84nd 
4AO4 UOS!I4edwoy) so.ueWUOJUSg pL‘ g sunBi4 


Cx)/C ies, -) | eM) 


Eo 
OOL 


COOL 


OOOOL 


xN|4 Buiseeid.seg 


xn} 4 Buisedsudu | K 


hci. —=—. 





OOOOOL 
C2LW/M I/O 


70 


OOL 





OL 


sani !djs Ob A-VvMad 
WOA4 SANIXIN 1!I0O %E/bLL 
AO4 UNOS! 4edWwoO) SsdUeWUOJUdg GL 'g9 eunbBl4 


Cyd /C1eSSL-1 1 eM) 


y Bul) 1og 





L L Q 
OOL 
COOOL 
OOOOL 
xnN|4 Bulsesussag © 
xN}+4 Bulseaudu; yx 
scone 
OOO0OL 


CeW/M I/O 


al 


OOL 





WOU4 SuNIxIW 


2ani 1d} Ob X-vwMaD 


|!'0 %OL/bLL-yY 6ul) 10g 


4O4 UOS!I Uedwo) ScUReWUO Udy GL -g eunBI4 


OL 


Cyx)/C1eS1L-1 1 eML) 


ane) 
OOL 
OOOL 
OOOOL 
xN|4 Suisesussg x 
xn|4 Sulsesudu| Vv 
Ha eOtls == 
OOOOOL 


C2LW/M I/O 


ec 


OOL 





SOUN1X IN 


eani !dj OF A-VMRAD woud 


[!0 SOL 3 %E “°%O SPELL 


yY Our), 10g 


AO4 UOS!Uedwoj sdueWIO,Udg ¢L'°g9 Suni 


OL 


Cy) /C1eSL-| | OME) 


L‘O 
OOL 


OOOL 
OOOOL 

%O0 

%OL UWS 

EU PWS 

40 YUIWG « 
xn{4 Bulisesussaqg 
OOOOOL 


COW /M I/O 


73 


eqnit !djs OF A-VMAN wo uy 
SOUNIXtW 110 KOOL @ %E “%O/PLL-Y Sul] 10g 
AOY UOStUuedwoy) SdUeWUOJUSsgG BL'Q sunBi4 


Cad/CVeSL-| | eML) 





OOL OL L Page @ 
DOL 
x 
Ky OD 
£ oO OOOL 
BK 
\ xX & 
+k. 
+3 OO 
~€° a0 
4. $0) 7 OOOOL 
%0 
* + : xh %0OL YUYWS 
%E UWS 
K+ xO 
z %0 UWS . 
ic ee >I) xn|4 Buliseaudssaq 
as at $5 —-— OOOOOL 


C2LW/K I/O 


74 


OOL 





Seqnlt !0}3 Ob/G2 A-vVAID 


WOA4 bPLL-H 24nd Hull} 10g 
Aeduo) SsdURWUOJUSg 6L'Q S4nbl4 


enh Ne S| 


DL 


Cyd/CVeSL-11 eM) 


LO 
OOL 


GOOL 
OOOOL 
dj Ob A-VM3D x 
1dj Ge A-VMAD xX 
ULOOWG ___ 
Bbuiseeudu | 
GOOGOL 


Ce gUSM DD 


WD 


OOL 





seqn! !dji OF/G2 »-VMID 
WO44 bPLL-Y 34nd Hul}!1og 


4AO4 UOS! Uedwoy) s2.UueWUOIUag O02'°9 aunBi4y 


OL 





Coy Cres fat 2a 





L'O 
DOL 


OOOL 


OOOOL 


1d} Ob A-VMBD O 
1d} 92 >-vVM3BD 


Y1Ceme 


xnN|}4 Burseaussag 


OOOOOL 
C2W/M I/O 


76 


seqnt !dj} Ob/92 y-vMa9D 
WOA4Y SANIXIW 110 %E/bLEL-y Bul) 10g 
A404 UOS! 4edWOD SdUeWUOJUdq 12°9 aunbl4 


Cxd/CeSL-| | em) 
OOL OL L LO 


OOL 





x 
OOOL 
OOOUOL 
A-VNao. 5c 
A-VMAD x 
HTOCUwe. == 
Bbuiseaudu } 
a OOOOODL 





Cow /M 2/0 


Leal) 


OOL 


seqn! !ds Or/92 X-VMIO 
WOJ4 SANIXIW 110 %E/PLL-H Bul] 1og 
404 UOSI 4edWOD) SSUBWUOY4Sq 2@2'°9 |aunbi4 


Cx IJ/CVESL-1 | CML) 


oY E i 
OOL 
ny 
ou OOOL 
O CJ 
© Oo 
oO a 
oO. sa OOOOL 
Cre 1d} G2 X-vVMAD O 
eS 1d}, Ob X-VMAN 
Severo. a 
© (J xN}4 BHuliseausag 





> 
al 


OOOGOL 
C2W/M)/09 


Jus 


seqni !dji Ob/G2 >A-VMa9 
WOA4 SAanIXIWN TiO SOL /eLL—-d Gu!) 1og 
AO UOS! uedwoyj Ssd.UeWUO}USq £E2°9 SunBl4 


Cad/CVeSL-| | eMLD 








OOL OL L LO 
OOL 
‘ vy 
K Vv O00L 
* VY 
* Y 
*V 
of OOOOL 
a, 
7 1d} 92 A-VMAD 7 
1d} Ob A-VMSD & 
VV oF 
LoOoule 3 
V *K xN|4 Burseaudu| 
5 | , oooooL 


Caw /M)/O 


is 


OOL 





WOU4 SUN 1XxiW 


seant !d4 O¢/92 yX-VvMad 


110 %OL /PLL-H Bui, 10g 


4AO4 UOS| UedWwoD SsdUuBWUO Jag p2°g SunbBi4 


Q 


L 


C372 esi eri) 


iG) 
OOL 
OOOL 
a, Wana 
1d} 92 A-VMID ZX 
1d} Ob A-VMSN 
YAOowsS ___ 
xN|}4 Buisesussg 
QOOQOQL 


CZ W/M I/O 


80 


OOL 





sqni 1dj 6t L-vMa9d 
woi4j4 6uU!}!10g bLL-y 34nd 
4AO4 UOSI Uedwo) SsUBeWUO}U8eq SZ2°9 sunBl4 


Cyd/sC est, -1 1; em) 
OL L 


Bae 
1 OOL 





OOOL 


OOOOL 


xN|j4 BHuisesud.sq 


xN{4 Bur1seaudu | Ba 


uUjoows _ 





OOOOOL 
C2W /M 2/0 


eal 


DOL 


WOU DUNYXIW 


aqni !ds GL 1-vaMg9 


|'0 %*E/bLL-Y Bull, 10g 


4AO+4 UOS! 4edWOD SdUeWUOJUeq 92'9 eunbBi4 


OL 





Cxnd/Crvesi-)| )} em) 


LQ 
OOL 


OOOL 


OOOOL 


xN|4 4Ad2eqQ 06 


xN}4 4AduUL x 


YUYOOWS ___ 





—-—-— OOOOOL 
C2 W/M 2/0 


Gz 


OOL 


OL 


eqnt !djy 6L L-vMsa9 


WOsy SAavIKIWN VIO SOE 7rLL 
4AO4 UOS! Uedwoyj sd.ueWUO Usd £2°9 Sunbi4y 


Cad/C resp -1 1} em) 


YJ 


Bul} 10g 





LQ 
OOL 

OOOL 

OOOOL 
xN|/4 4d8eq x 
xN}4  4dUl 
ipOCuiG. 22 

OOOOOL 


C2LW/M)/9 


83 


eqni !dj GL 1-VMAN wou 
SOUNIXIW 1!10 SOL 8 %E “%O /bLL-Y Buly!tog 
404 UOS! 4edwo) SdUBWUOJ4Sq B82Z'gG SuNnBl4 


CA ee ew 





OOL OL L L‘O 
OOL 
alg e 
K O 
= XV 
a: ; VAD 
ye OOOL 
fe 
4 VO 
-+ 
> MO 
S * he 
ate WO 
pi a e 
: x Va AoE OOOOL 
w+. %60 
x WoO %OL UWS 
- x 
* + %E UWS 
WK ; 
+ A Xx xnNj4 6ul1seeudu | 
# . Ve oa — OOOOOL 


C2.W/M)/0 


84 


DOL 


sqni 1djJ BL L-VMAD wou, 
SOUnNIxXIW |!O0 YOL 8 KE “%O /FLL—-H Bul) 10g 
AO4 UOS! 4edWODX SdUBWUOLI3Sq 62'°9 SunBi4 


Cxad/C yesi-| |} em) 





OL l ae 
OOL 
X 
Ky. ae 
is a OOOL 
4k. ae 
x SE) 
# Do 
Ky x 28 OOOOL 
%0 
yep Oy %OL UWS 
%E YIWS 
K+. mH 
CO eUawS ss 
* + OKO xN}j4 Bulsesuseg 
a OooooL 


C2W/M)/0 


85 


OOL 


OL 





eqni !djJ Ge 1-VvM39 


woij 6u!)!0G bLL-y ound 
AO4 UOS!I UedWOD SsduUebWUOJUdeg OF'GQ SunBbi4 


Cajd/C yess -1 | em, ) 





LQ 
OOL 


QOQOL 


QOQOOL 


xn| 4 Bbulseaureg 


xn{4 6Hui1seaudu | K 


YYOOWS —— 





—— OOOOOL 


86 


VOL 


sqnl ids Ge 1L-VM3AD 
WO44 SANIXIW L!O %E/bLL-H Ou!l! 10g 
AO-+4 UOS!| 4edwoy) SdUeWUOJU89g LE'GQ aunBi4g 


Cyd/CIESL-1 1 eML)D 
OL L LQ 





| a ae 




















[a el abet ee QOL 
OOOL 
OOOOL 
xN|}4 4Adeq O 
xN{j 'ADdDUL x 
Vat syre Vic ae 
OOOOOL 


CoLW /M)/O0 


87 


eqnt 1d} Ge 1-VvM4ad 
WO44 S4ANIXIW 1!0 %OL/bLEL- Su! 1og 
404 UOS! UedWO) SdUueWUOJ4dq Z2E QG SunBi4s 


Cxd/C eS] -1| 1 eML) 
OOL OL L Eta 
OOL 





x 
COOOL 
OOOOL 
xn{J4 4990 xX 
KN | 4 ADu | V 
ly yoOoOWwSG = ___ 
OOO00L 





Ce sua 70 


88 


OOL 





SOUNIXIW 


OL 


sqnt !djJ} Ge L-vVMADN woud 


110 %OL @ XE “%O /PLL—-YW 6ul)|10¢g 
AO} UOS! WedWwoD SsUeCWHOJIeag FE'G Sunbi4 


Cy)/CIESL-} | eMLI 


Paarl 
OOL 
WOOF 
7oE OOOOL 
%O0 
%DOL UWS 
%E UWS 
%0 UIWG « 
xN}4 BHursea udu | 
OOOOOL 


C2LW /M) /O 


89 


eqnl !d} G2 1-VMa9 wou 
SSUNYX!IW 110 SOL 8 %E “%O /bLL-Y Ou!) 10g 
AO UOS!IUedWOX SdUeWUOLUdqG pE’'G aunbBl4s 


Cxad/C resi -1 lems) 












OOL OL L L'O 
5 Al Be Oe ieee a 
Ry 
NEBL 
+e 
PK e 
x 
X60 wE  O OooOoL 
%O 
X OO “OL UWS x 
%E UWS 
x 0) i: 
40 YUIWS . 
xX xN|}4 Bur1seaussg 
2 OOOOOL 


GEA 270 


90 


QOL 





AO4 UOS! “eduO) SsdueWUOJUsd SGE'GQ Ssunbl4 


OL 


seqnt 104 G2/6L L-VvVMad 
WO44 bPLL-H 94nd Bul|10g 


Cad/C esi -| | eM) 


er 8 
OOL 
OOOL 
OOOOL 
L-VM39D =X 
L-VMAD xX 
UiatOoue 2 = 
6Hui1seeausu | 
OOOOOL 


COW /M2/O0 


Hall 


ssqnt 103s 92/6L 1L-VM39 
WO44 bLL-Y 84nd bu! | 10g 
JO UOS!I 4ueduoy) sduReWUOLUsg GF'G SunbBi4 


Cad/sC est -1 ; ems) 


OOL OL L B'@) 
GOL 
J 
a OOOL 
KY) 
co 
oy 

?) OOOOL 

™ 1-VM39 O 

I-VMSD OF 

OO 
Uvors i eens 
lee, Bul1seauseg 





OOOOOL 
C2LW/M I/O 


oz 


OOL 
os (ie ea Peay aia eae | 





seqni 'dji G2@/6L 1-VM3a9 


WO44 SANIXIW 110 %E/PLL-H Dut) 10g 


4O4 UOS!I uedwoy) SsdUueWUOJU4Udg 4F°GQ Ssunbl4 


OL 
app 


CyJ/C resi -} | eMLD 





as 6 
GG 
OOOL 
OOOOL 
L-VNaS x 
L-VMAD 
(iCewWe (<3 
6Bur1seaudu } 
OOOOOL 


C2 W/MI/0 


oS 


ssqni !djsJ 92/6L L-VvMadS 
WO44 SANYXIW 110 %E/PLEL-YW Bult| tog 
AO{ UOS! “edwoy) SoUeWUOJUSqg BE’'G SunbB!l-4 


Cy3/CVeS1L-| | eML)D 


OOL OL L LQ 
DOL 
=) 6} 
O° OOOL 
EEO 
O oO 
Od 
Oo OOOOL 
Q L-vVM59 (O 
Leyva o] 
ea) 
UWOOWS ___ 
oo 6bulseauvag 





COCOOL 


> 
LJ 
! 


CoLW/M 2/0 


OW 


94 


VOL 


seqni '43 9e/6L L-VvaMso 


WOW So laa xi) tle “Ol Pb ou ls] Tog 


10-4 UOS!I uedwo) Ssd.ueWUOUeq GE'Q eunb!i-4 


OL 








<¢ 


C7 C1eS Ea ex 





lL O 
OOL 


OOOL 


OOOOL 


a el SAW, 
1-VMID xX 


Betere (= 


Bul Seaudu | 


OOOOOL 
C2W/M)/0 


29) 


OOL 


seqnt !d} 92/6L L-VvMaod 


WOU4 SUNIXIW 110 %OL/PLL-H Bul) 10g 


4O4 UOS!IUedwO)X SdUeWUOLUdSdq Op’ Gg Ssunbi4 


OL 


CHI /OIeSi-7 Ter 


OX 





LO 
OOL 


OOOL 


QOOOL 


L-VM39 xX 
Lewes tl 


U1OCOWS ~___ 


Hulseauseg 


OOOOOL 
C2LW/M I/O 


96 


OOL 


eani !0d3s Ge KA-VMI9 
WOI4 PLL-Y 24Nd Bul | 10g 
JAO4 UOSIUePdWO) SdUeWHO,IAagG Lp'g Sunbis 


CxJ/CieSL-1 1; em) 








OL L LO 
OOL 
fe i4 AI? ie 
xn {is wou a 
Ll AOOws <== 
Ky 
O OOOL 
ie 
C) 
OOOOL 
| Ae OBO Rr 


Cow /M)/O 


ad 


sqni !dj G2 xXA-VWMI9 


WO44 S4ANIXIW 110 %E/bLL-H Oul{ 10g 
4AO4 UOS!| UPdUO) SdUeEWUOJUSq 2@bp'g sunbi4 


CyJ/CVeS1L-1 1 emMLD 


OOL OPE [ ao 
OOL 
xN}4 4Ad98qd oO 
xNj4 Adu; x 
LU OCW a. = 
OOOL 
OOOOL 
OOOCOL 





Ce LW /M I/O 


98 


NOL 





eant !'dji 9@ xXA-VM3a9 
WO44 SUNIXIW 110 KOL/PLL-b Bul} 10g 
AO4 UOS! uedwoy) SsdueWUOJUdq EPp'gQ sunbBi4g 


Cy 97C eS) =) 1 em, 3D 


OL 


L'O 
OOL 


OOOL 


OOOOL 


OOOOOL 
C2W/M 2/9 


ZS, 


eqni 1d} 92 XA-VM3AD WO4g 
SOUNIXIN 110 SOL @ %E “%O /bLL-y BHU!) 104g 
4O4 UOS!UeEdWOD SdUeWUOJ48q pp’ g sunBl4 


Cx}/C1es_-} | ea) 








OOL OL L EG 
oor 
as s 
* 
a. = 
+ Zz 
nS O 
| V x O00L 
a 0 
+e. 
7 7x0 
+ 
A Oo 
ar VX 
pa vO 
we" u 
aa vr+ e 
¥ A OOOOL 
; 0 
iy V4 *0 0 
- Ty %OL UWS ¥ 
| got. 2 KE UWS 
74 | | 
%O UWS . 
ma 4 
v¥ yni4a Buises udu 
YY 
4 @ i 
| SS Se see —_—_= OOGOOL 


"2 W/M I/O 


100 


sant !dj 92 XKA-VWMID woud 
SOUNIXIW 110 %OL 8 SE “%O /bLL-Y Bull] tog 
4O+4 UOSI UedWO) SOURBWUOJUSq Sp g sunbi- 


CyJ/CIe@SL-11eML) 


OOL OL L 
x O 
7S. 
+k * oO 
i == 
+k x 0 
*° x ov %OL 
a Xoo %E 
%O 
yep x OO %OL Y WS 
am — %E YWS 
: Oats e we 
x + x E> xn|4 6Buisesusagq 
*K 


ye 
ii 
<> 





LO 
OOL 


OOOL 


QOOOL 


QOOOOL 


C2 WwW /M I/O 


101 


OOL 





seqni !djJ 92 XANL\N-VMID 
woijy Bui} !OG bLL-H 84nd 


AO4 UOS! 4edwo) SdUeWUOJISdq Gr'g eunbi- 


OL 


Cyd/CVeSL-1 1) OMLD 


L O 
OOL 


OOOL 
OOQOOL 
KA -VYMI9 
1 -VMI9D 
Aaa 
HPTOOUR . = 
xn}4 Buiseaudsu| 
OOOQOOL 


C2LWw/M)/O 


OZ 


DOL 





seqni 'djog2 xA/1/y-VAS9 
WO44 bplL-Y 84nd BHui|1og 


4AO4{ UOSIUNedWoODN SdUBeWUOIUSd ¢b'G SunbBly 


OL 


COS ie eae) 


LQ 
DOL 
OOOL 
OOOOL 
XA-VMAD 
L-VM39D 
A-VMAD 
He OOuIS === 
xn|}4 Buliseausag 
OOOOOL 


Cow /M 2/0 


103 


QOL 





WOU} Bun ixIW 


seqnt !dj3} Ge XA/L/A-VM]AD 


110 %E /bPLL-H 6Hu1;10Q 


AO4 UOS! 4edWO) Sd.UREWUOILUSq Brg SunBl4 


OL 


Cad/CVeSL—-1} em, ) 


LQ 
OOL 


OOOL 
OOOOL 
XA-VMI9 
A-VM39 
L-VKAo 
UiTOows, 
xn|4 Bursesaudu | 
OOOOOL 


CeLW/M)/O 


104 


OOL 


WOU4 SUNIXxIW 


seqnt 1dji G2 XA/1L/4N-VMID 


l1'0 E/PLL-H 6Ui| 10g 


AO4 UOSI4eduoy SsdUeWIOJISgG Gr'g Sunbis 


QL 





CyJ/C1esi-1 | emp) 





LO 
QOL 


OOOL 


QOOOL 
XA -VWMAD 


AYN 
DayiaS 


WU OOWG ___ 


xN|4 BHulsesusag 


OOOOOL 
C2 LW /M D/O 


105 


Sogn, WOJ=9e x1 7/1 7A evn 
WOA4 SUNYXIW 110 %OL/pLLEL-u Bul| 10g 
AO4 UOSI AedWOJ SdUeWUOJUSsYqG QOGS°Q suNnB!i4 


Cyd/C esi -) 1p ems) 





DOL OL E a3) 
DOL 
ar aad 
a OOOL 
OOOOL 
A-VMID 
XA-VM39 
1-VM3I9 
Vv Xk 
UloouS ” 
Ww Me xNn}4 Buliseaudu | 
(ig EE OOOOOL 


Cou N70 


O'S 


x 


Me es orm. @ wy Ale > Feds =12) 
WO44 SANIXIW 110 %OL/bLL-Y Bul) 10g 
AO4 UOS!I 4URPAGWOD SdUeWUOLUSd LS'g sunbi4 


Cy I/CISL-1 1 eMLD 





ae I LO 
OOL 
Ox. 3 
> - selie es OOOL 
xO 
X00 
x OU 
Loca OOOOL 
1-VMd9d 
<x -Onl XA-VWMID 
L-VMd9 
x 30a 
Ee TOOUG. (25 = 
x @ xNn}4 Buisesussaq 
os OOOOOL 


C2W/M)/0 


Jy 


eqn, xnij4 Yip 
woij 6Ul}!10G bPLL-YW a4nd 
4OJ UOS!I UeEdWOD) SdUeWUOJUaq 2¢° 9 aunBi4 


CyJ/C esi -) 1} em) 





OOL OL L L O 
OOL 
xn|s Hoc oO 
xn} JD" | ae 
UYVOOWS ——— 
WOOL 
OOOOL 
OODOOL 


C2.W/M I/O 


108 


eqn, xni4 yBiy 
WO44 S4NIXIW 110 %E/bLL-y Bul] 10g 
AO4 UOSI 4edwojy SdUeWUOJUsg £FG'GQ SunbBi4 


CyI7C tesi= ii ea 


COOL OL L LQ 

OOL 

xNn1i4d AdeQ O 

gic See) 

Y YoowS ___ 

OOOL 
OOOOL 
QOOOOL 





COW /M 2/0 


ILI 


eqnt xni4 Uu6tH 
WO44 S4ANIXIW 110 %OL /bLL-u Ou!) 10g 
AO4 UOS! 4eBdWOy SdUeCWUOJUSq pS'Q sunBi4 


CyI/CVSL-1 1 eML) 





OOL OL L EG 
COL 
xn}4 4d8eq xX 
xn ADU, ey 
yjoows __ 
ODOOL 
OOOOL 
OOOO0O0L 


COUW /M)/O 


mae 


eqn, xn{4 yBlIH wWouy xny}y4 Buliseaudu | 
SOUnIX!IW 110 %OL 9 KE “%O /bLL-u Bul) 10g 
AO4 UOS! Uedwoy) SdUBeWUOJUSg S$S'GQ SunBl4 


Cy )/C7eS}-1| 1 eML) 





OL L ae 
OGL 
%E 
%O alae 32 
%OL UWS » ee CO 
%E UWS + ‘eo 
%0 UWS . So OOOL 
+0 
A er 
+ 
O 
Y O 
V O 
7 VX 4 OOOOL 
+ = 
Won 
: Oo 
Vv x 
Oo 
x 
Oo 
yas | 


OOOOOL 
C20W /M D/O 


Jhaligl 


eqn, xnj4 YBIH Wouy xn|}4 Bulseaudag 
SOUNIXINW 110 %OL 8 %E “%O /PLL-Y Bul] 10g 
AO4 UOSi Uedwoy SdUeWUOJUSaq 9GS°G SuNnBi4g 


Cad/C eS ~-} | OMLD 
OOL OL L baw 


OOL 
*OL 
%E 
%0 

OL UWS 

HE UWS 

%0 UWS COOL 


OQOOOL 





OOOODOL 


C2 W/M)/0 


114 


OOL 


xXNji4 499q 


XN}4 ADU, xy» 


U.OOWS 





eqn, 4-|eDxKSs0w usu | 
wo44 6ul|!0G plLE—-y ound 
4AO+4 UOS! uedwo) SdueWUOJUdYq (S'Q Ssu4unbi4 


CAC ies perm) 
OL ; 


LO 
OOQL 


OOOL 


QOOOL 


OOOOOL 
COW /M)/O 


ei 


OOL 








xN|j 4380 O 


xN}4 °4ADdDUu, x 





Yq Cones 


aqn, 3-]eDxKe0wuay) 


WO44 94NIXIW 110 %E/PLL-Y Bul} 10g 


4O4 UOS!I 4edWO) SdUBWUOJUSq BS'G suNnBI4 


OL 


Cy) 7G esi hey 


LQ 
OOL 


OOOL 


OOOOL 


OOOOOL 
C2W/M)/0 


114 


OOL 


eqn, 3-|o>xKe0wusuU] 


WO44 SUNIXIN 110 SOL /bLL-Y Bul|1!0g 


AO4 UOSI 4edWO) SDUeEWUOJUSq G6SG'Q SsunbBi4g 


OL 





Cy 7012S emi 


LO 
OOL 


OOOL 


OOOOL 


OOOGOL 
C2W/M 2/0 


i> 


eqn] 3-|eoxs0wusy| wWouy xn|4 Bulseaudu| 
SOUNIXIN 110 ¥OL 8 %E “%O /bLL-Y BulI1 10g 
AO4 UOS! WeduO) SsdUeWUOJUSg 99'9 SsUunBl4 


CxI9/CILSL-1 | BML) 





OOL OL L 
%OL 
%E 
%0 ges 
%OL UWS ie Ux 
%E UWS : v 
%0 UWS ’ ‘is 
y Oo 
+e 
“Kx CK 
+ 
Lit & 
qe 
DRE 
oe S~ 
ae a a GL. 
os y 
ef ac 
V7 xo 
ye ape 
va aa 
Ae ee 
7 
fe 
pets y 5 


L°Q 
OOL 


OOOL 


OOOOL 


OOOOOL 
C2.W/M I/O 


eG 


eqn, 4-|eoxsowusu, Wouy xn|4 Bulseauossag 
SOunixIW 110 SOL 8 %E “%O /PLL-Y Bul] 10g 
JOo+4 UOS! 4edwWwoy) SdUBWUOJUSd L9°GQ SunbBl4 


Cy )/CIeSS1-1) eMLD 
OOL OL L 


%OL 
%E 
%0 . 


%OL UWS 
%E UWS se 
%0 UWS 





PK 


ae DG: O 
= XO 0 
} OK x © LJ 


L°OQ 
OOL 


OOOL 


OOOOL 


OOOOOL 
Caw /M) /9 


i] 


OOL 


8Qni FH-|e8oxKs0wUusy] 
WO44 OU!11!10G bLL-Y 9e4nd 
AO4 UOS! 4edwoy) SsdueWUOJUSg 2G GQ SsuNnbBi4y 


Cad/CVeSL-1 1) emLD 











OL L LO LO'O 
t—$—“ottieh ed QOL 

QOOL 

QOOOL 
xNj4 4d0eq 
xN}4 “ADU, x 
Yu YOoOwWsS ___ 

OOOCOL 


C2oVW/M) /O 


ll ks: 


eqn], FH-|e>xsowuseu | 


WOU4 SANYXIWN 110 %E/PLL-H Bul] 10g 
AO-+ UOS! 4edWO) SdUeWUO,USgG £9'°9 SuNnb!4 


Cxd/C esp -1 1) em, ) 
OOL OL L LO 


OOL 


XNI4 4Ad8Q O 


AN [Se oui 


yYyOOWS ___ 


OOQL 


OOOOL 





OOOOOL 
eeu ho) 


Jolhs, 


OOL 


xm |S 


XM | 4 





GQn! JH-|eoxsowUsy 1) 


WOA44 S4NIXIW 110 %OL /PLL-Y BUI} 10g 
4AO-4 UOSI ABGWO) SoURWUOYUSq pG' GQ sunbl4 


CxanJ/CVeSi-|) CML dD 
OL | L 


2) 2S 1@) a 


| V 


N1eouic faa 


LO 
OOL 


OOOL 


OOOOL 


OOOOOL 
C2W/M I/O 


120 


eqn, JH-jseoxKsowusyu, wou4 xn|+4 Hur1sesudu | 


SSUNIX!IW 1!0 “OL 8 KE “%O /bLL-y OU1) 10g 
AO+ UOS! UuUedwo) SDdUBWUOJUSqg SQ'gQ SsunbBl 4 


Cyd/CVeSt-1 | eMLD 





OOL OL L 
%OL 
%E 
%0 sac 
: a 
Oe a MEL EUS as 4 V fe] 
x 
%E UWS * : 0 
%0 UWS wv, yam wel x“ 
+ oO 
* Wi 
ee as 
sK O 
te OV x 
*S O 
a x V 
ee Oo 
. kK ap « y Oo 
et + 
a 
aE x O 
se Set of = 
wy ox 
* Ve oaita 


L OQ 
QOL 


QOOL 


QOQOOL 


OOOOOL 
C20W/M I/O 


IZA 


SQn| FH-|]eoxsowusu, WOuy xn|4 Bulsesudsag 
SO4UNIXIW 110 SOL % %E “%O /bLL-Y Bul) 10g 
4O-+4 UOS!| 4eduoj SsdUeWUOLUSg QGQ°g sunB!i4 


Cad/C wes, -1 | eML)D 
OOL OL L 





%0 ‘ 
%OL UWS 
%E UWS Ay 
%0 UWS X 
ie 
+k. my 
toy xO 
*° =) O 
ne xO O 
* + xO O 
ko 6 alia 
oe x al 


LO 
QOL 


xO 


OOOL 


OOOOL 


OOOOOL 
Cec uyn oO 


2. 


SSQnNi 3JH/9-| eoxXseowUusy] 
WO44 bLL-H S4Nd Bul! 10g 
4O4 UOS!|UedUWOD) SouUeWUOJUdq 49'°9 Sunbl4 


Cyd/CVESL-1 | CML 
OOL OL | L 






3H -| Sox 90w udu 1 
3 -| eDxs0w usy 1) 


UY OOwWs 


xNj4 BHulses udu | 


LO 
OOL 


OOOL 


OOOOL 


OOOOOL 
C2LW/M)/O 


ZS 


SeQqn! 3JH/3-| eoxsowusyL 
WO44 bLL-H 84Nd Bul]! 10g 
JO4 UOS!|ueduoy sdueWUOJUSqd B8G'°Q9 SuNnBIYS 


Cx )/CISSL-| | OEMLI 


OOL OL L E 
OOL 
JH-|eoxsow4eyl 6 
4-|eoxsowuey] 
4 yoows —_— 
xn}4 Bulseaussag 
OOOL 
OOOOL 
OOOOOL 





C2 W/mK 2/0 


124 


S8qn, 3JH/9-|eoxsowusu) 


WOA4 SANIXIN 110 %E/bLL-H Bult 10g 
4O4 UOS1 Uedwoy) SoUeWUOJUSq 69'G SUuNnB14 


Cxnd/CVeSi-1 1 eM) 
OOL OL % E20 
COL 









J-jeoxsowusuf x 
SH-|e8>xsowusutL 
El WOOUIC seme 


xN|4 BHulsesudu | 


nM, QOOL 


aC x OOOOL 


<x 


QOOOGOL 
CZ2W/M)/0 


PZ) 


Seqn] 3H /J-| eoxsowuUeu | 


WO14 SANIXIW 110 %E/bLEL-u Bul) 10g 
AO4 UOS!Ueduwo) SsoueWUOUSqg O4'G sunbBl4 


CyI/CIeSL-| | eMLD 


DOL OL L LO 
aa 

J-|eoxsow4sut 6 
JH-|eoxs0wuey) 
Blakes |= ee== 
xn|4 Bulisesuovag 

OOOL 

OOOOL 

OOODOL 





C2 W/M)/0 


1726 


SS8Qn| 3JH/5-}| eDxKeo0wusy | 


WO44 S4NIXIW 110 %OL/PLL-W BUI) 10g 
4O4 UOSIUedwo) SdURWUOJUSqd LZ°9 SunbBi4 


Cy)/CFeS1-1 | eML) 


GOW OL L L°O 
OOL 
J-|soxsowusut 9 
3H-|}S>xsowusy, yx 
WT OOWe +... 
xn}{4 Bursesudu | 
OOOL 
OOOOL 
OOOODL 





CoLW/M)/O 


eZ] 


seqn! 3JH/3-|e0xsowusu 5 


WO44 S4NYX!IW 110 %OL/PLL-Y Ou!) 10g 
4JO4 UOSi uedwoy) SsdUueWUOJUSq 2/°9 SunBl4 


Cy)/C resi -| 1 em) 


QOL OL L LQ 


3-|eoxsowusyl x 


FH-|S89xsowusy] 6 


Bic vote) ogame 


xn|4 Bul1sesiussg 





xO 


Ox 


O x4 














—— ee eS ll _ $e 
C2W/M)/O 


OOL 


QOOL 


QOOOL 


QOCOOL 


eZ 5 


eqni g-oquny, 
WO44 Bui} !OG pLL—-y 84nd 
AO4Y UOSIUedWO) SdUeWUOJ4dq £4'G SuNnBi4 


C7 C2 este) exo 
OOL OL E oat 
OOL 


xN}4 4deq 


xN}4 ADU] x 


CH OOUS c= = 


OOOL 


QOOOL 





OQOOOOOL 
C2 UW /K)/O0 


29 


eqn, g-oquny, 
WO44 SANIXIW 110 K%E/PLL-Y Bul} 10g 
JAO4 UOS!|4edWOD SdUBWUOJUSq pf'g sunbi4 


Cy)/€3eS1-)1emML) 


OOL OL L Fed 
DOL 
xN}4d 480 O 
Sh elee ey 82 
Ua OoliG a= 
OOOL 
OOOOL 
OOOOOL 





C2W/M 2/0 


130 


Bde JUNS g-Oquny, 


WO44 SANIXIW 110 %OL /bLL-y Ou!) 10g 
4O4 UuOStuedwoy sdueWUOYUaq GZ'°g sunbi- 


Cy)/CVeESL-1 1 eML) 


OOL OL L LQ 

OOL 

x1 | = | =] XxX 

xN| 4 °~AduU{ w 

ULOoOuUC __ 

QOOL 
QOOOL 
QOOOOL 





Cow /M 2/0 


Lol 


eqn, g-oqun, wouy xnjy4 Buisesudu| 


SesnIxIW 110 %OL 8 %E “%O /bLL-Y Bul) !og 
AO4 UOSIUedWO) SdUBWUOJUSYq 9G/°9 SauNnBl4 


CyI/CWSL-} | CML 
OOL OL L eae) 


DOL 


*%OL UWS 
eE UWS 
%0 UWS : OOOL 


OOOOL 





QOOOOOL 


CevW/MI/0 


eZ 


eqn, g@-oqun, wouy xn{j4 BHulseaussag 
SOuUnixIW 1!O SOL 8 %E “%O /prpLL-y But) 10g 
404 UOSIUedWOD) Sd.UReWUOJUSq (2°9 SunbBi4 


C7 CIESE=\- en) 





OOL OL L ara 
OOL 
%E 
%O 
%OL UWS 
%E UWS 
%O YWS oooL 
ooooL 
oooooL 


CevW/M)/0 


lice: 


DOL 


1djsO% X-MO 
10492 XA-MO 
g-oqun | 

5H - Wau 


('d3ge 1-MD 
10492 >-MD 
xN}4 YBIH 


UY OOWS —— 





seqn, paeoueyug pue YU ACOWS 
wo4j Bu!{!0G@ pLL-H 84nd Bul) 10g 
4O+4 UOS! wedwo%?) SsoueWUO,USg B84 'G SunBl4 


Cp Cae sie ein) 


OL L 
V 
os 
KE0U oO 
Sap eS TE 
oy eo ae 
x 4VO0 a ae 0 
* 870 eee 
* AVO «1 


* WO Ge 


* WI X+ 


WTR ae 
maa 7 








LO 
OOL 


OOOL 


QOOGOL 


OGOOODL 
COW /M)/0 


134 


seqn, pedueuuUy pue UulOOWS 


WOA4 SANIXIW 110 %E/bLEL-YH BU! | 10g 
404 UOS! Wedwoy) SsduUeWUO ed 64°99 Sunbi4 


CaJ/C resi -j; | emML) 
OOL Olli L 





ras07. AS 
g-oqun| 
4H -W sy | 
| | XN }4 YBIH 
eB icla> OND 
1djg2e 19 
10392@ x9 


GiCene 2 





Se eotee El wos Ot lig 






+ Ak OXY 


+ AGKO XY 


+ 7 


<p 
PD 
Nd 


LO 
OOL 


OOOL 


OOOOL 


OOOOOL 
C2W/M I/O 


> 


Soqn|] pseosueuUQ PUue U.OOUWS 


WO44 S4NIXIW 110 *%OL/PLL-y Bul | 10g 
4JA0O+4 UOSI Uedwo) SsduUeWUOJUSq O8'GQ suNnbBi4 


Cx) /C WeSL-| | eML)D 
OOL OL E Baye 
OOL 





bangin AS 
qg-oqun], 
4H -W4sy | 
xN}4 UBIH 
Kebicrss ots 
han Ge 2) 


1Q9439¢ AD 
i joowSe 





O+ & 





BK + KO OOOL 





ae eX re 






+O 3K x 
7 


+ (ek Oo Ww O000L 


7 OOOOOL 
CATs DULe 





is 


OOL 





PSduy SdeRLUNS Ps ISM | eNIDy BuIsSNA 


\dj G2 >-VM39 wO44 6uI110G bLL-Y Bund 
4O4 UOS! uedwoy SsdueWUOJU4U3Sq 1B 9 euNnBi4 


Cyxd/CVeSL-1 | eMLD 
Ov L 


L O 





C2W/M) /O 


OOL 


OOOL 


OOOOL 


OOOQOOL 


iS 7 


SHOVTYNS GHYONWHNY SNSUYAA HLOOWS 
YO SOLLVWA LNAWAONVHNG LNATOTAASAOD YHASNWAL LVWAH “III WIdVv. 


A-xs0uWsqL = A-L HH-[0x00uLag]L = FH-L XA-WMAD=XO ILVWMA9=LO WVMAD=AO 


Le 


CC 


6T 


Ul 


of 


Le 


St 


cb 


97 


ol 


l'€ l'€ 9S L'9 z9 SII ZI rol ol SI Sol q-Oqin 
LZ 97 ZS es L's S's 58 o'vI 601 lel 6'8E a-L 
ZZ 61 8'b 1's 8'p ZOl Ol 9'€l 8ZI ru €'9Z aH-L 
l'€ ee 8'€ v9 9 601 Cll Sel 9'¢el ZL 60€ XN YS 
re 4 bb a be Cb bb bb Se zs e's Kdj97-XD 
Se ZZ 8'p ob Le 9p Lb ZS 6€ ¢ z9 1d397--LO 
€ ST ZS Cb l'€ Ls AS b's €'S '9 99 1dj61-LO 
9€ bz 9'p 6€ l'€ bb Ib lb b bb ov 1djor-4O 
v7 91 TE 67 x6 a9 l'€ l'€ TE s'€ 9'€ 1dj97-99 
I I I I I I I I I I I qyOouls 
od OQ 

€ 0 Ol € 0 Ol € 0 Ol € 0 (%6)/ 
‘3002 [1O 
001 SE Ol Se Z J OY AAY)/ 


3 


VII. CONCLUSIONS 


Accurate and repeatable boiling heat-transfer data 
using R-114 and R-114/oil mixtures was obtained on ten 
enhanced tube surfaces. 


Three distinct groups of boiling tubes can be 
identified by structure and boiling performance: 
smooth, finned and reentrant cavity. 


Significant increase in performance was observed for 
reentrant cavity surfaces versus either the finned or 
smooth surfaces within the nucleating regime at all 
heat fluxes tested. 


Degradation “1g joel ll shige) performance accompanied 
increases in oil concentration within the nucleating 
regime. Most notably, the high flux surface performed 
comparably to a smooth surface at the highest flux 
tested. 


Within the convection regime all tube surfaces tested 
performed equally well. No significant effect of oil 
concentration can be observed up to - incipient 
nucleation. 


Distinct temperature overshoot within the convection 
regime occurs repeatably in all tube surfaces tested. 
The reentrant cavity surfaces exhibit the most extreme 
overshoot versus either the finned or smooth surfaces. 
Oil concentration has no significant effect. 
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VIII. RECOMMENDATIONS 


Due to the way a real flooded evaporator operates, it 
would be preferable to heat the tube within the single 
tube apparatus with hot water. 


As a complement to present single tube and bundle tube 
Studies, the present single tube apparatus should be 
modified to accommodate two vertically aligned boiling 
tubes in order to study the effects of multiple tubes 
and variation of tube pitch to diameter ratios. 


The physical properties of the R-114/oil mixtures 
tested should be measured for comparison to the 
predictions used in the data reduction program and for 
better understanding of the mechanisms driving the 
degradation in heat transfer performance. 


Neutrally buoyant particles should be placed in the 
pool to facilitate study of the circulation papeemve 
within the flooded evaporator in more detail. 


A high speed camera should be used to study the 


nucleation process and circulation patterns in more 
detail. 
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APPENDIX A: THERMOPHYSICAL PROPERTIES OF R-114 


The following thermophysical properties of saturated R-114 


are plotted versus temperature °C: 









elinenicl Density ai ko/m_) 


J eetguid Dynamic Viscosity (Pa*s) 





i 
2 
a ween) Themmabeconduceivity (W7m*K) 
4 


elias Speci rioeneat (J/7/kq-K) 
5. Latent Heat (J/kg) 
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APPENDIX B: DATA ACQUISITION APPARATUS CALIBRATION 


A. BACKGROUND 

Early data runs revealed a disparity in calculated values 
between previously reported theses and those presently 
obtained for heat flux and heat-transfer coefficients. The 
thermocouple channels were checked for validity of temperature 
readings uSing other programs and data acquisition equipment. 
Their readings were found to be as accurate as possible 
(+ 3%). Voltage readings originating from the RMS converter 
were also checked out as accurate. The RMS converter converts 
true voltage measured into a proportional voltage output (0-10 
Mwomes) to the data acquisition unit. The proportionality 
constant to convert RMS voltage readings, Vs, to real tube 
heater voltage, V, was equal to 25. This was verified uSing a 
Standard voltmeter across the power leads of the cartridge 
heater measured over several power settings. The discrepancy 
was identified to be the measurement of the current supplied 
to the tube cartridge heater by the VARIAC unit as measured by 
the inductive pickup (Figure 3.13). The inductive measurement 
eeeeecurrent (1m proportional volts) is no longer run through 
the RMS converter. Instead, it is run directly to the Data 
Acquisition Unit. A procedure to measure the true current and 


calculate the proportionality constant for converting the 
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inductive current, Is, to the true current, I, was established 


as follows: 


5; 


ile 


Ze 


EQUIPMENT USED 


Voltmeter 

2 ohm resistor 

HP-3852A Data Acquisition Wale 
Computer - HP-9300 Series 

Current Sensor (Inductive Pickup) 
Voltage Sensor/RMS Converter 
Cartridge Heater - 1kW, 220V rating 
VARIAC - power supply 220V AC 


SETUP8 program 


CALIBRATION PROCEDURE 


Ensure all power is turned off to the VARIAC. 


Insert the standard 2 ohm resistor in series withweme 
cartridge heater as shown in Figure C.1l. 


Connect leads of voltmeter across the 2 ohm resistor to 
measure the drop in voltage. At any given power 
setting, the current through the resistor will equal 
the current through the cartridge heater. This assumes 
the resistances of both heater and resistor are 
constant. This was verified as shown in Figure C.2. The 
total resistance of the heater/resistor rapidly and 
asymptotically approached a constant value. 


Connect power to the VARIAC. 
Load and run SETUP8 program to provide the voltage and 


current readings made by the data acquiSition unit. 
Note the SETUP8 program used in calibration differed 
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from that listed in Appendix G. A proportionality 
Constant of 2.0 was assumed for calibration then 
modified once the true value was calculated. 


6. Starting with the VARIAC set at ZELO 2 eV OLES,; 
incrementally increase the voltage up to the maximum of 
BaeOV 

Does At each voltage, measure the drop in voltage across the 


resistor. The current (amps) is calculated: 
I = Drop in voltage (volts) / 2 ohms 


8. Note and compare the current provided by the program. 


2. At the maximum 220V, incrementally decrease voltage 
down to 0, taking comparative current readings as 
before, in order to detect any hysteresis effect. None 
was observed. 


10. Plot current (amps) vs. voltage (volts). See Figure 
C.3. Note the linearity of both data sets. The true 
meter reading is some factor smaller than the data 
acquisition readings. 


Pies ime caltbralion constant,C, is calculated by: 


eo () Meter current) x 2 
Vebatawacauiciimen CUurrent) 
= 129182 


D. DISCUSSION 

A disparity between the previous reported theses values 
and those presently obtained still exists. Calculated values 
reported in previous theses for the heat flux and the heat 
transfer coefficient are consistently higher. No previous 
thesis reports such a calibration as carried out above and it 


is thought that this is the cause of the discrepancy. 
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APPENDIX C: AN EXAMPLE OF REPRESENTATIVE DATA RUN 


Month, deta and time : S Ju} 1991 17:21:51 


NDTE: Program name : DRPS 
Disk number = 91 
New file nama: DATAQ70S1S 
TC 1s defective at locetion 2 
Tube Number: G 


Deta Set Number = 1 Bulk Dil % = 8.8 2.11545528805 
TC No: 1 2 3 4 S Ss a 8 
Temp : 5.11 @.20 5.435 5.8) 5.12 5.08 5.89 5.1) 

Twa Tliad Tlzsaqd2 Tvapr Pset Tsumo 

S.98 2.36 2.26 3.9) -1.65 -13.8 

Thatab Htube Qdo 


2.770 1.S90E+02 4.4066 +02 


Date Sat Number = 2 Bulk 011 7 = 8.8 2.11545539932 
TC No: } 2 3 4 S 6 7 8 
Temp : 4.94 @.00 5S.@04 4.87 4.99 4.95 4.96 4.98 
Twe Tligd Tligd2 Tvapr Psat Tsump 
4.95 ives 2.18 3.29 -1.768 -13.7 
Thetab Htube Qdp 


2.740 1.603E+02 4.391E +82 


Date Set Number = 3 8ulk 0:1 %2 6.9 2.115455397S6 
TC No: J 2 3 4 S & ? 8 
Temp : 6.908 0.299 6.19 S.96 6.14 6.09 6.11 6.15 


Twa Tliad Tliqgd2 Tvapr Psat Tsump 
6.07 2.38 2.16 3.27 1.69 -123.6 
Theatab Htube Qdp 

3.806 1.694E+02 6§.446E6+02 


Date Sat Number = 4 8ulk 011 2 = 8.9 2.11549539788 

TC No: } 2 3 4 S 6 ? 8 

Temp : 6.132 @.00 6.23 6.02 6.18 6.14 6.1S 6.18 
Twa Tliad Tliad2 Tvwaepr Pset Tsuap 


6.12 2.39 2.19 3.29 -1.67 -123.6 

Thetab Htubea Qdp 

3.828 1.682E+82 6.439£+02 
Dete Set Numbar e S Bulk 013 2 0.8 2.113545S40628 
TC No: } 2 3 4 S & ? 8 


Temp : 7.13 8.08 7.27 6.97 7.24 Wels. ele 7.2S 
Twa Tiiad Tii1ad2 Tvepr Psat Tsump 
7.13 2.24 2.16 2.92 -1.77 -13.6 
Thetab Htube Qdp 
4.934 1.791E+82 8.834EF+02 


Date Set Number = & Bulk 011 Z = 9.8 2.11545S496SS 
TC No: } 2 3 4 g 5 7 é 
Temp : 7.869 0.00 7.25 #6.95 7.21 7.13 7.15 7.20 
Twe Tliad Tlaqd2 Tvapr Psat Tsump 
Tel 2.20 Lote 2.9) -1.8) <-13.5 
Thetab Htube Qdp 
4.945 1.786&+02 8.834E+02 
Date Set Number = 7? Bulk 011 2% = Q8.8 2.11545541 0223 
TC No: 1 Z 3 4 S 6 7 8 


Temp : 9.S6 9.00 9.74 9.36 9.71 9.62 9.62 9.75 
Twa Tiiad Tlaqd2 Tvepr Psat Taump 
9.57 2.47 Z2ge 2.94 <-1.81 -13.5 
Thetab Htube Qdp = i 
7.223 1.863E+02 1.3466+82 


3 


Dete Set Number = 8 Bulk 0211 3% = 8.8 2.11545541165 


TC No: } Z 3 4 S & 7 8 
Temp : 8.33 @. 88 8.S2 Soy 9.49 9.37 8.39 9.58 
Twe Tiaad Tliad2 Tveor Pset Tsump 
9.33 2.2) 2.33 2.82 <-1.88 -13.5 
Theteb Htube Qda 


7.165 1.874E€+82 1.343E&+083 


Oate Set Number = § Bulk 0:1 % = 8.8 2.11545541546 
TC No: } 2 3 4 c 6 es 8 
Temp : 18.993 @.88 11.53 11.89 11.58 11.38 11.48 11.48 
Twa Tliod Tliad2 Tvear Peet Tsumo 

19.26 2.38 2.16 2.66 -1.73 -13.5 

Thetab Htube Odp 

9.026 1.963&+0@2 1.7726+82 


Dets Set Number = 18 Bulk O11] 7 = 0.8 2.11S545541S8S8 
TC No: 1 Pq 3 4 S & 7 8 
Tamp : 11.88 @.0@0 313.52 113.09 113.58 11.37 11.48 11.41 

Twa Tliad Tliad2 Tvaeor Paet Tsump 

19.26 Pry 4 Zee 2.67 -3).69 -13.S 

Theteb Htube QOdp 

8.988 1.S977E+@2 1.777E+83 


Detea Set Number = 13) Bulk 02:11 % = 8.8 2.11$45541889 
TC No: ’ 2 3 4 S 5 ? 8 
Temp : 113.45 @.08@ 32.32 11.93 12.38 12.18 12.21 12.18 
Twa Titad Tlzad2 Tvaor Psat Taump 
11.99 2.24 ols 2.67 -3.76 -13.S 
Theteb Htube Odp 
8.783 2.074E£+82 2.8296 +983 


Date Set Number = 12 Bulk 011 2 = 8.8 2.11545541913 
TC No: ] 2 3 4 S 5 7 8 
Temp : 13.58 @.02 12.38 113.97 12.385 12.24 12.25 12.14 
Twa Tliad Tliad2 Tvepr Psat Tauro 
12.04 2.26 2.19 2.69 -1.74 -13.5 
Thetab Htube Odo 
9.814 2.@6SE+0@2 2.9027£+983 


Deta Set Number = 13 Bulk 011 2 = 0.8 2.11$455422398 
TC No: i 2 3 4 S & 7 8 
Tamp : 12.88 @.00 13.3) 12.7) 13.09 12.98 12.99 12.82 
Twa Tliad Tliad2 Tvapr Psat Tsaump 
12.74 Lite 2.28 2.986 <-1.7S -13.5 
Thetab Htube Qdp 
18.527 2.1392E+@2 2.223E+83 


Date Set Number = 14 Bulk 011 % = 0.8 2.11$4554231S 
TC No: ’ 2 S 4 S & 7 8 
Tamp : 12.02 @.00@ 13.05 12.67 13.03 12.92 12.94 12.75 
Twa Tliad Tlind2 Tveor Pset Tsump 
12.68 2.22 Zeal’ 2.96 -1.78 -13.S 
Thetab Htube Odo 
19.494 2.110&+02 2.214EF+983 


Dete Set Number = 1S Bulk 01] % = 8.8 2.191$45S42S1) 
TC No: ’ 4 3 4 S & 7 8 
Temp : 12.55 @.0@8 13.83 13.53 13.82 13.72 13.73 13.43 
Twa Tliad Tliagad2 Tvapr Psat Taump 
13.42 2.19 2.16 2.92 <-1.79 -13.5S 
Thetab Htube Odo 
17.239 2.182E&+0@2 2.452E+83 
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Oata Set Number = 136 Bult O11 % = 

TC No: 1 4 3 4 

Tems : 12.62 2.92 13.85 123.61 
Twa Tliad Tlind2 Tveor Psat 
13.46 2.26 Geee 2.9) <-1.72 
Theteab Htube Qdo 
11.217 2.183E+@2 2.4496+83 

Oata Set Number = 17 Bulk O11 % = 

TC No: 1 2 3 4 

Temp : 2.89 2.20 2.74 2.69 
Twa Tliod Tliod2 Tveor Psat 
2.58 2.44 2.19 2.21 -1.64 


Thetab Htube Qdo 


278 1.1)26E+84 3.036F+903 
Date Set Number = 18 Bulk Oil % = 
TC No: 1 2 3 4 
Tamo : 2.86 9.80 2.71 2.66 
Twa Tliad Tligd2 Tvaor Peat 
2.56 2.39 2.18 1.98 -1.69 
Thetab Htube Qdp 
-288 1.0S52E+84 3.929&+93 
Date Seat Number = 19 Bulk 011 % = 
TC No: 1 2 3 4 
Temp : 3.15 @.20 2.97 2.92 
Twa Tliod Tliagqd2 Tvepr Peet 
2.76 2.4) 2.17 2.89 +-1.67 
Thetab Htube Qdp 
-472 9.S76E+8% 4.523E+83 
Data Set Number = 28 Bulk 011 % = 
TC No: } 2 3 4 
Teap : 3.12 2.00 2.93 2.89 
Twe Tliod Tliod2 Tvaepr Peat 
2.45 2.47 2.19 2.98 -1.62 
Theatab Htube Qdp 
-394 1,.144FE+04 4.S596&+93 
Deta Set Number = 21 Bulk 03) % = 
TC No: ] 2 3 4 
Temp : 3.92 2.00 2.83 2.79 
Twe Tliad Tliad2 Tvepr Peet 
2.62 2.37 2.89 1.98 -1.74 
Thetab Htube Qdp 
-394 1,.149F+04 4.52S5F&+93 
Date Set Number = 22 Bulk 011 % = 
TC No: 1 2 3 4 
Temp : 3.45 9.00 3.20 3.36 
Twa Tliad Tliagd2 Tvepr Peat 
2.B9 2.41 2.16 2.768 -1.67 
Thatab Htube Qdp 
-603 1.178&+04 7.999F+02 
Date Sat Number = 22 Bulk 01] % = 
TC No: 1 2 3 4 
Temp : 3.44 2.30 3.19 3.18 
Twa Tliod Tliad2 Tveor Peet 
2.88 2.39 2.15 2.87 -1.69 
Thatab Htube Qdp 
-612 1.198E&+04 7.992E+93 


> 


@.2 2.11545542934 
S 6 7 8 
S06o° 419.75 13.75. 15,47 
TsumD 
-13.5 
%.2 2.11545543286 
S 6 ? 8 
2.69 2.59 2.87 2.68 
Tsump 
-13.S 
@.2 2.11949543229 
S 6 7 s 
2.67 2.56 2.558 2.658 
Tevmp 
-13.S 
2.9 2.11545543435 
S 6 7 8 
2.92 2.79 2.78 2.91 
Tsurmo 
-13.S 
2.9 2.11545543588 
S 6 7 8 
2.89 2.78 Lele 2.88 
Teump 
-13.S 
2.3 2.11$46543879 
S 6 7 8 
2.79 2.64 2.62 Zett 
Tsump 
-13.S 
9.2 2.11545543829 
S & 7 8 
3.15 2.96 2.9) 3.14 
Teump 
“13.5 
2.9 2.11545S438SS 
S & ej 8 
3.14 2.96 2.98 3.13 
Teurmo 
-13.5 


Data Set Number © 24 Bulk O12] 2% & 
TC No? 1 2 3 4 
Tempo : 3.95 ®. 22 3.56 3.55 
Twa Tlied Tlacd2? Tvaer Paat 
Lipa 4 2.06 Zale 2.71 <-1.69 
Thatab Htube Qdo 
.857 1.279F+04 1.896F+04 
Date Set Number = 25 Bult 01] 2 © 
TC No: ] zZ 5 4 
Temo : 3.95 @. 82 2.56 2.55 
Twa Tlied Tlied? Tveor Peat 
ae12 2.26 2.16 2.75 <-1.78 
Thetab Htube Ddo 
-8539 1.279&+84 1.8986+04 
Data Set Number © 26 @Qulk Dil Zi © 
TC No: } £4 Z 4 
Tamp : 4.48 2.22 3.92 3.95 
Twa Tliad Tlaad? Tvepr Psat 
3.26 2.38 2.19 2.87 -1.67 
Thatab Htube Ddo 
1.072 1.41)164+04 1.514E6+04 
Data Set Number © 27 @Qulk D.1 Z «© 
TC Ne: 1 2 3 4 
Temp : 4.45 @. 22 2.89 3.92 
Twa Tlaed Tliacd2 Tvapr Psat 
3.33 2233 2.15 2.84 -1.72 
Thetab Htube Ddo 
1.092 1.238S5E+0@4 1.9)2E +04 
Date Set Number = 28 Bulk 01] 2% © 
TC Ne: 1 2 3 4 
Temp : Siz 2@.82 4.37 4.43 
Twa Tlied Tlaad? Tvaeer Peat 
3.65 2.35 2.47 2.08 -1.72 
Thatab Htube Ddo 
1.398 ).427E+04 1.996E6+04 
Data Sat Number = 29 Bulk 01] Z @ 
TC No: 1 2 3 4 
Tamp : $.12 @.22 4.36 4.42 
Twa Tliad Tlihad2 Tvapr Peat 
3.64 Zod 2.16 2.87 -1.7) 
Theteb Htube Ddo 
1.292 1.422E+04 1.996E+04 
Dete Set Number = 38 Bulk O11] 2% © 
TC Na: } 2 a 4 
Tamp : 6.47 2.22 5.25 5.39 
Twa Tliad Tliad2 Tveor Psat 
4.23 y are) 2.18 2.18 <-1.72 
Thateab Htube Ddo 
1.989 1.SQ@SE+@4 2.9976+04 
Date Set Number = 3) Bulk Oi] 2 © 
TC Na: 1 2 3 4 
Tamo : 6.45 2.22 5.22 5.37 
Twa Tliad Tliad2? Tvapr Psat 
Ae Died 2.15 2.08 -).75 
Thetab Htube Ddp 
2.082 1.4976£+84 2.998E+04 


iS 6 


2.2 


3.52 
Tsump 
-13.6 


&.8 


3.49 
Tsump 
-13.6 


3.85 
Tsunmp 
-13.6 


@.8 


3.83 
Tsumo 
-13.6 


4.27 
Tsumo 
-13.6 


@.8 


4.26 
Tsump 
-123.6 


@.2 


S.11 


Tsumo 
-13.6 


®.8 


5.89 
Tsumo 
-13.6 


2.11545544789 
6 7 8 
Ss ee 974] 3.52 


2.195455447232 


2.11545545894 
6 es 8 
S262 3.49 3.92 


2.11545545119 
& t 8 
3.628 3.46 a.69 


2.11545545468 
& z 8 


4.84 3.86 4.48 


2.11545545484 
& vi 8 
4.82 3.84 


2.199545S46228 
& 7 8 
4.98 4.58 5.33 


2.11545546248 
6 7 8 
4.88 4.57 5.3) 


Dete Set Number = 232 Bulk 0:11 2 = 8.8 2.13S54SS466S9 


TC No: } 2 3 4 S Ss 7 8 
Temo : 8.99 @.0@ 6.66 6.92 6.39 6.17 §.S7 6.62 
Twa Tliad Tliad2 Tvaor Psat Taums 
5.136 Zoo 2.48 2.913 -1.7) <-13.4 
Thetab Htube Ode 


2.918 1.SS9E+84 4.S23S5E+84 


Data’Set Number = 232 8ulk 0:1 % = 0.8 2.11S54SS46682 
TC No: } 2 3 4 G b 7 8 
Temp : 8.97 @.282 6.64 6.98 &.237 6.14 S.S6 &.62 


Twe Tliad Tliad2 Tveer Peat Teump 
§.3S 2.38 2ehe 2.18 <-1.723 -13.3 
Thetab Htube Odo 

2.91) 4.SS6E+84 4.S31E+04 


Oata Set Number = 34 Bulk 011 2% = 8.8 2.1154554695} 
TC No: } 2 3 4 S 6 7 8 
Temo : 12.55 8.82 8.98 9.239 8.54 8.86 6.96 8.56 
Twe Tlaad Tlaad2 Tveoer Psat Taump 
§.S3 2.29 2.36 2.15 3-31.74 -13.2 
Thatab Htube Ode 
4.305 1.632E+0@4 7.028&+04 


Date Set Number = 25 Bulk O11 % = 8.8 2.11545S46986 
TC No: ! 2 a 4 5 5 7 8 
Teme : 12.59 98.08 £9.89) 9.42 8.S7 8.809 £=6§&.99 8.68 
Twa Tliad Tliad2 Tveepr Psat Teume 
6.S& 2.3} 2.19 2.18 <-1.71 -13.2 
Thetab Htube Odp 
4.215 1.627&+04 7.019F+@4 


Data Set Number = 36 Bulk 0:1 % = 8.8 2.115455472S7 
TC No: } Z a 4 S 6 7 8 
Temp : 16.06 @.00@ 11.35 41.79 18.57 18.04 8.26 180.43 
Twe Tiiad Tlzad2 Tvaepr Psat Taump 
7.84 Pape aed 2.15 2.414 =-1.77 -12.9 
Thateb Htube Ode 
5.649 1.8946&+@4 9.S69&+04 


Data Set Number = 37 Bulk 011 % = 8.0 2.1154594 728) 
TC No: } 2 3 4 S & v4 8 
Temp : 16.33 @.08 13.39 11.81 18.59 18.87 8.28 18.46 
Twa Tliad Tliad2 Tveor Psat Taumo 
7.87 2.26 2.18 2.17 -1.75 -12.8 
Theteb Htube Oda 
S.656 1.692E+84 9.S572E+04 
NOTE: 27 date runs were stored in file OATA®7E@SIS 


NOTE: 37 X-Y pairs were stored in plot dete file PLOT@78SIS 


rom 


Data run number 9 


was 


neat ef lux 
Calculation. 
A. 


APPENDIX D: SAMPLE CALCULATION 


(Saturation temperature was 2.22 °C and 


20.14 kW/m*) was chosen for the sample 


TEST-SECTION DIMENSIONS 


Bz: 
Da 
Dal 
D2 
L 

Lu 


APP TTI | es [eS 


I > Fe a 5 ea J El a 


= 


ple Sieve 
UZ 
SOUS 
OLS oe 
e220 
Og 20 


SSeS) Sea 


PARAMETERS 


Ze 


volts 
VOles 


CEG) C) 


OUTER WALL TEMPERATURE OF THE BOILING TUBE 


p 
Ac 


Ac 
Oh 
Tavgd 
Two 
Two 


m*°Do = 3.1416 - 0.01588 = 0.0499 (m) 
nm (Do?-Di2)/4 = 3.1416 = [ (0.01588) --(0.0127)-W4 
7.14E-5 (m7?) 


VI = 112.08 - 1.94 = 217.44 (W) 


> Laat 


= So 7 te) 


Tavo -— Oh tien (P27 2 ere ea 
L597 7=— 2 ie 44 - 
[in (15. 88/11 243)7 (2-3-2 146-02 20e aa 


LSS 


om 


Pe 


mon 


h 


fp, 0 O00 7367 * 


5.601 Se) 
iO elsate—=—lo.Oo07— 2.22 = 13.58 °C 


Two 


PROPERTIES OF R-114 AT FILM TEMPERATURE 


Pow — ino tlsaiiy Cow til>.cU12.22)/2 = 9,01 °C 

i= eX 44600. + (01124 7/TE))] - 1E=3 

uw = exp[-4.4636+(1011.47/9.01)] - 1E-3 = 4.16E-4 
(N- s/m’) 

Tc = Critical Temperature (R) = 753.95 (R) 

tio— on 0m Cio — 507.89 (R) 

i= Sole (F(R Tero — 1 — 507289/753.95 = 0.33 

ee eo ole te Oe 4 5-5 FN 263002) + 279799-4)/2 + 
oe aay mi) 

p= 15040225 (ko/m) 

v = p/p = 4.16E-4/1504.22 = 2.77E-7 

i 20-2 (21 6)lh@4 > Tf (~C) ) 

k = 7.10E-2 - (2.61E-4 - 9.01) = 6.86E-2 (W/m: K) 

poe Ode re) = 282.16. (K) 

Gey = 400 + (1.65 + Tf) + (1.51E-3 - T£*) - (6.68E-7 
tte) 

Con — we G7 One /ka: KR) 

w= k/p-Co = 6.86E-2/ (1504122: 970.43) = 4.7E-8 (m/s) 

Pees op Sip — 1292E-3 (1/K) 

Pr = v/a = 5.88 


HEAT—-FLUX CALCULATION 


Average natural-convection heat transfer coefficient at 
boiling ends: 


g: B- (Do*): 8: Tanh (m: Lu) ie 
v* a> bum 
Do [1+(0.559/Pr) 9/16} 8/27 


i= bby Ke ec) < 


23554. (W/m-- K) 


The value for h was computed iteratively. A value for h of 190 
(W/m?:K) was assumed at start of iteration. 


m 


Heat-transfer rate through non-boiling ends: 


Zeon ele Mm) 
(hn: p: kc: Ac) ?/*-@-Tanh(m> Lu) = 6.79 (W) 


OF 


9 


Heat flux through active boiling surface 


QO = “OH — 220£ = 217 Aa] 267 oe 20s es> a, 

Ab = x-Do-L = 3.1416 * 0.015875 - 012032 = 1.012 = 20a 
q" = Q/Aby= 203%e5/1 025-2" — 2G Ce wy 

h = 9/0 = 20,1087 13450) — 1430 mee 


The following are the results obtained from the computer 
by running the data reduction program DRP8 (See Appendix H). 


20, 140) teem 
V3E6as eC) 
1477 (W/m*: Kk) 


> DQ 
Heol sll 
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TABLE IV. DIMENSIONS OF BOILING TUBES 


D1 2 Di Do L Lu Keu 
(mm) (mm) (mm) (mm) (mm) (mm) (W) 
Ine’ KR 
GEWA-K LO. iZe dee abl 27 2032 76.2 398 
26 fpr 
GEWA-K JOR 1. 27 ed 2 o7 208 22 16022 398 
40 fpi 
GEWA-T His dS aco 1 Z03 2 
9 £52 
GEWA-T i Sey eet 203 az 
Z26n G1. 
GEWA-YX ie 57 JS as: i. 8 1S ae oil OS ae 76. 398 
2 6m t 11: 
E 
HE 


bead Sioa — : ae 













(Copper/ 
Nickel 
95/5) 
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APPENDIX E: UNCERTAINTY ANALYSES 


Four data points from two data runs were chosen for the 
uncertainty analysis: data run number 8 (Smooth tube, 0% oil, 
100,000 & 3500 W/m’) and data run number 74 (Thermoexcel-E, 0% 
oil, 6000 & 100,000 W/m’. The dimensions of the boiling tubes 
can be found in Appendix D, Table IV. The measured and 
calculated parameters used in this analysis were obtained as 
shown in Appendix D and are listed in Table V of this 
appendix. All uncertainties are presented as a percentage of 
the calculated parameter. What follows is a sample calculation 
for data run number 8: smooth tube, 0% oil at a heat flux of 
93,130 W/m? using the methods outlined by Kline and McClintock 
[Ref. 17]. All other data point uncertainties were calculated 
Similarly, the results of which are listed in Table V of this 


appendix. 


A. UNCERTAINTY IN SOURCE HEAT-TRANSFER RATE 


Oh = VI W 
Is = iZ2etZ2 volts §6I = + 0.025 amp 
Vs = 9.45 volts OV = =) 00S voles 
il = 1.9182:-Is = 4.07 amp 
V = 25°Vs = 236.26 volts 
where: 
6 = uncertainty in meaSurement and calculation 
80h/OQh = ((8V/Vs)? + (8I/Is)?)'” 
S0n/Om) = ( (0005/9 a) 0572 le) ee 
60h/OQh = 1.29 percent 
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B. UNCERTAINTY IN SURFACE AREA 


AbD = % De, 

Ika = 15.88 (mm) 6Do = O21 (mm) 
L = 203.20 (mm) 6b = 0.1 (mm) 
SAb/Ab = ((8Do/Do)? + (8L/L)*)‘”’ 

Shay ion —— HOS S28) +) nO. 17 208.2) 7) <4 
5SAb/Ab = 0.63 percent 


C. UNCERTAINTY IN WALL SUPERHEAT 


AT = Two - Tsat 
Tsat = 2.22 °C 6T = 02012 =C 
Two == Tavouss Om lm (b2/Di))/ (2° L“ ke) } 
Tavg = (LTn/8) where n = 1 to 8 
Tn = thermocouple readings 
Tl = Fis) Be oe a T2 = io 2° 7 C T= 20s e. G 
Tae= —Voeey Cc T5 = Defective thermocouple 
T6 = 20.18 °C T7 = Zire On ae T8 = 20.20 °C 
Tavg —ecoe te  C 
Sob = aCe Wan oe > = 0 1 Sue 
where S.D. = standard deviation 


The logarithmic term in equation of Two is very small 
compared to the standard deviation, this term can be neglected 
for the uncertainty analysis. 


Two =) taveg = 18.72 "¢C OLWON=VS.Ds =20.19 “¢ 
coe = 7296 °C 

Sacr/AT = ((oTwo/AT)* + (-6Tsat /AT)-)*” 

ONE RE = “(0.937 16,5)* + (0.01/16.5)7) 

SAT/AT = 1.06 percent 


D. UNCERTAINTY IN HEAT FLUX 


Otis 204) 77 AD 


q 
On 


Oi oy 6Qh = 12.42 W 


inGs 


Assuming the same proportion in the uncertainty for Qf: 


Of L=" 82 ooay 6Qf = 0.12 W 
Oh = 20f See oaseer 
Sq/q = [(8Qh/ (Qh-20f))° + (280f/ (Qh-2Qf) )*) + 


(SAb/Ab) *) ]*/? 
[(12.42/943.6)? + (0.24/943.6)* + (0.0063) 
1.46 percent 


bq/q 
5q/q 


E. UNCERTAINTY IN BOILING HEAT-TRANSFER COEFFICIENT 


h = Qq/AT 
6h/h = = Witbeq7q)- ont ate 
dh/h = [(0.0146)* + (0.0 @6) 7 


dh/h 1.8 percent 


TABLE V. UNCERTAINTY ANALYSIS OF FOUR DATA POINTS 


PARAMETERS Eee as THERMO-E 
100 kW/m’ 3500 W/m* 6000 W/m* 100 kW/m? 
Is (amp) 0.494 2.06 
VS u(VOles) a0 Greig 
ramp) [4.07 foo | 0.98 3.98 
5I (amp) 02025 D025 
V (volts) Sen Ze Ze 
dV (volts) O05 0205 
54.17 77.1 
2.42 
( 


= 


80h (Ww 12.42 3.00 7.43 
1.29 [6.00 5.55 


iJ 


6Qh/Qh ( 


[15.88 | 15.88 


Do (mm die ee 1S cael: 


6Do (mm) 


KOS 20Gm2 20 eZ 2082 
8.50E-3 | 8. 50E~3 


L (mm) 


S 
be 


56L (mm) 
Ab “(m°) 
5Ab/Ab 


0 

0 

0.75 0.75 
6Tsat (°C) CeO 2.91 
2.77 11.13 
8 .53B22 
0.53 
16.20 
5.69 91 
Qf 0.15 485-2 
Qh-20f (W 54.06 871.3 
gq (W/m?) 6109 | 102, 542 
da/a_ (2) 5.63 1.14 


h (W/mK) Sango 342.4 rie 2610 10,463 


bh/h_(8) 17.15 3.84 


Og: 
Oat 


ee 


730 
ow 
On 


il 
1 


( 
SAT/AT 
(W 


Ls 


ae 


W) 
(W) 
) 
) 
(%) 
hwo C) 
muwo -( C) 
ac ) 
(3) 
) 
(W) 


tO 


-) ro) 

_ a 

NO TN PTW Fw >) 
fb 


OOL 


JSSYUUSANG Ppue KN|+4 WASH UO} Spueg uwudOUUg 


SISA|CuYy AlUIeIUEDUN 


OL 


J-|/aedxeowueuL 


UWOOWS +4 


KxN|+4 Bu!1seaussg 





Cad/sCresi-11 end 


Lb 3 eunbig 


ae, 8) 
OOL 


OOOL 


OOOGOL 


OOOOGL 
C2-wymMI/0 
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APPENDIX F: SETUP PROGRAM 


The following is a listing of the complete setup program 
used in the preparation of the apparatus for testing. aTkts 


SOnsi~sts Of five sections: 


aE Monitor the Sump temperature 

7a Monitor the evaporator liquid temperature 

S. Measurement and readout of all thermocouple channels. 
4. Measurement and readout of the power supplied to the 


tube cartridge heater. 
on Measurement and readout of the power supplied to the 
auxilliary heaters if used. 
The program was written in Hewlett-Packard Basic 5.0 for both 
the Hewlett-Packard 9300 series computer and 9852A series data 


fegm@isltton/control unit. 


roy 


wn — 


PROGRAM: SETUP PROGRAM FOR HP 3852A 
DATE: AUGUST 13,1991 

PROGRAMMER: LT DEAN SUGIYAMA 

REAL T(@:12) ,Sum(@: 12), Temp(@:12) ,E( 1:3) 
ON KEY @,15 GOTO 27 

PRINTER IS 1 

PRINT 

PRINT 

PRINT USING “4X,""“SELECT OPTION" ““ 

PRINT USING “6X,""O@=MONITOR SUMP""” 
PRINT USING “6X,""1=eMONITOR LIQUID" 
PRINT USING “6X,""Z2*eCHECK THERMOCOUPLES" 
PRINT USING “6X,""3=CHECK MAIN HEATER” 
PRINT USING “6X,""4=CHECK AUX HEATERS” 
PRINT USING “6X ,""S*EXIT PROGRAM” 
PRINT USING “4X,""NOTE: KEY @ = ESCAPE""” 
BEEP 

INPUT Ido 

IF Ido>S THEN Ido=25 

IF Ido#@ THEN S@ 

IF Idoel THEN 155 

IF Ido*2 THEN 185 

IF Ido=3 THEN 209 

IF Ido=4 THEN 209 

IF Ido*S THEN 252 

PRINT 


PRINT 

PRINT “SUMP TEMPERATURE OEG C ” 
PRINT 

OUTPUT 709,”RST" 

Tot=@ 

FOR J=1 TO 5 

OUTPUT 709; "“CONFMEAS TEMPT,S11,USE 6@0" 
ENTER 709;A 

Tot=TottA 

NEXT J 

Tavg*Tot/S 

PRINT USING “4X,MD0.00"; Tavo 
BEEP 

PRINT 

WAIT 6@ 

60TO SO 


PRINT 

PRINT “LIQUID TEMPERATURE DEG C” 
PRINT 

OUTPUT 709, "RST" 

FOR I-1 TO 2 

Surm(I)#@ 

TCI )=@ 

NEXT I 

FOR J-1 TO S 

OUTPUT 709;"“CONFMEAS TEMPT ,5S@8-S@9 USE 6@0" 
FOR I*1 TO 2 

ENTER 709: TCI) 
Sum(I)-Sum(1)4+T( 1) 
NEXT I 

NEXT J 

FOR I=! TO 2 
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174 


Temp(I)-Surm(I)/5 

NEXT I 

Tavg=( Temp( 1)+Termp(Z))/2Z 
PRINT USING “4X, M00. D0"; Tavg 
BEEP 

WAIT 60 

60TO 155 


PRINT 

PRINT “CHANNEL TEMPERATURE DEG C" 
OUTPUT 709; "RST" 

FOR Tel TO 12 

Surm(I)-@ 

TCT) 9®@ 

NEXT I 

FOR Jei TO S 

OUTPUT 709; "CONFMEAS TEMPT ,5@0-511,USE 600" 
FOR Iei TO 12 

ENTER 709; T( I) 
Sua(T)@-Sum(I)4+T( 1) 

NEXT I 

NEXT J 

FOR Iei TO 12 

Termp( I )eSurm(I)/5 

PRINT TAB( 3)3I3 TABC15)s Temp( I) 
NEXT I 

BEEP 

WAIT 5 

60TO 185 


PRINT 

OUTPUT 789;°RST" 

FOR Iel TO 3 

Sur(I)-@ 

NEXT I 

FOR Jel TO 5 

OUTPUT 7059;"CONFMEAS DCYV 512-514, USE 600” 
FOR Iel TO 3 

ENTER 709;E( 1) 

Sum(I )e-Sum( I )+EC I) 

NEXT I 

NEXT J 

Arnp=® 

FOR Iei TO 3 

IF Iel THEN VolteSua(I)/5 

IF Ie2 AND Idoe3 THEN 

PRINT “MAKE SURE VOLTAGE BOX IS SET TO MAIN HEATERS” 
Amp=Sura(1)/5 

END IF 

IF Ie3 AND Idoe4 THEN 

PRINT “MAKE SURE VOLTAGE BOX IS SET TO AUX HEATERS” 
AepeSua(I)/5 

END IF 

NEXT I 

ArmpeABS( Armpe 1.9182) 

Volt eABS( Volt#2Z5) 

Power=VolteAmp 

ResistencesVolt/Amp 

IF Amp-@ THEN Resistence=@ 

PRINT 


Isp, 


246 
247 
248 
243 


ZS! 
252 
255 
254 
255 


BEEP 
PRINT “ 
PRINT 


VOL TAGE(V) 


CURRENT( A) 


RESISTENCE( ohms ) 


POWER( W)" 


PRINT USING “1X,S5( MDDOD00. DOO, 3X)"; Volt ,Amp,Resistence ,Power 


WAIT S 
60TO 205 
BEEP 
PRINT 
PRINT 
END 
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APPENDIX G: DATA REDUCTION PROGRAM 


The following is a listing of the complete data-reduction 
program, DRP8, written in Hewlett-Packard Basic 5.0 for both 
the Hewlett-Packard 9300 series computer and 9852A series data 


sequisititien/Ccontrol unit. 


Ib Feat 


10OO| 
104 |! 
10@6 | 
1@12! 
1@16 
102@ 
1024 
1028 
1032 
1036 
1042 
1044 
1048 
1052 
1056 
1060 
1064 
1068 
1072 


FILE NAME: DRPS 
DATE: October 19, 1984 
REVISED: August 14,199! by LT Dean Sugiyama 


COM /Idp/ Idp 

PRINTER IS 1 

CALL Select 

INPUT “WANT TO SELECT ANOTHER OPTION (1=#Y,@2N)?" Isel 
IF Isel=! THEN GOTO 1024 

BEEP 

BEEP 

PRINTER IS 1 

PRINT “DATA COLLECTION/REPROCESSING COMPLE TED” 

ENO 

SUB Main 

COM /Idp/ Idp 

COM /Cc/ C7) ,Ical 

COM /Wil/ O02 ,Di,Do,L,Lu,Kceu 

DIM Emf(12),7(12) ,Olac13),02a¢13) Oia t3) Ooal 13) Latta) Lua 13) Kcuat13), 


Et1¢2@) ,€t2( 20) , Tn8( 4015) ,Sum( 20) ,Tt(12), Tatt2)  Vte2) Val2) Eliq( 12) ,E¢12) 


1076 
108@ 
1084 
1088! 
1092 
1056 
1120 
1104 
1108 
1112 
1116 
112@ 
1124 
1128 
1132 
1136 
114 
1144 
1148 
11S2 
1156 
116@ 
1164 
1168 
1172 
1176 
118@ 
1164 
1188 
1192 
1196 
1200 
1204 
1208 
12121 
1216! 
1220 
1224 
1228 


DATA @. 10086091 ,25727.94369 ,- 767345. 8295 , 78025595. 81 
DATA -9247486S589 ,6.97688E+11 ,-2.66192E+13,3.94078E+14 
READ Cie) 

DATA “Smooth” “High Flux", “*Thermoexel-E” ,”" Thermoexel-HE” 
DATA Smooth,High Flux, Turbo-B,High Flux Mod, Turbo-8 Mod 
READ Tn8(«) 

PRINTER IS 70! 

BEEP 

IF Idp=4 THEN PRINTER IS 1 

IF Idp=4 THEN GOTO 2032 

OUTPUT 709; “RST” 

OUTPUT 709;"SET TIMEDATE’: TIMEDATE 

OUTPUT 709; "TIMEDATE” 

ENTER 709;Dt 


PRINT 

PRINT “ Month, date and time :"s;DATES( Dt) , TIMES< Dt) 
PRINT 

PRINT USING "10K ,""NOTE: Progreanr name : DRPEe""" 

BEEP 


INPUT “ENTER DISK NUMBER" ,On 

PRINT USING “16X,""Disk number = °" ,2Z7";0n 

BEEP 

INPUT “ENTER INPUT MODE (@=38S52A, 1=-FILE)” In 

BEEP 

INPUT “SELECT HEATING MODE (@=ELECs 1°WATER)” Ihe 
BEEP 

INPUT “ENTER THERMOCOUPLE TYPE (@=NEW,1-0L0)" ,Ical 
IF Ime@ THEN 

BEEP 

INPUT “GIVE A NAME FOR THE RAW DATA FILE” ,02_ files 
PRINT USING “16X,""New file name: “",14A";02_file8 
Sizel=20 

CREATE BOAT O2_fileS8,Sizel 

ASSIGN @File2 TO O2_file8 


DUMMY FILE UNTIL Nrun KNOWN 
01_fileS="DUMMY" 

CREATE BOAT O1_file8,Sizel 
ASSIGN @File!l TO Ol_files 


eZ 


1Z3Z 
1236 
1240 
1244 
1248 
1zZ52 
1256 
1260 
1264 
1268 
1272 
1276 
1280 
1284 
1288 
1292 
1296 
130 
1304 
1308 
1312 
1316 
132@ 
1324 
1328 
1332 
1336 
1340 
1344 
1348 
1382 | 
1356 
1360 
1364 
1368 
1372 
1376 
1380 
1384 
1388 
1392 
1396 


OUTPUT @FileisDt 

IF Ihm-@ THEN 

BEEP 

INPUT “ENTER NUMBER OF DEFECTIVE TCS (@=DEFAULT)” Idtc 
IF Idtc*=@ THEN 

Ldtci=® 

Ldtc2=@ 

PRINT USING "16X,"“No defective TCs exist””” 

END IF 

IF Idtcel THEN 

BEEP 

INPUT “ENTER DEFECTIVE TC LOCATION” Ldtc! 

PRINT USING “16X,""TC is defective at location “" OD" ;ldtcl 
Ldtc2=+0 

END IF 

IF Idtce2 THEN 

BEEP 

INPUT "ENTER DEFECTIVE TC LOCATIONS" ,Ldtcl ,Ldtc2 

PRINT USING "16X,""TC are defective at locations "",00,4X, OD" yldtcli ,Ldtc2 
END IF 

IF Idtc>2 THEN 

BEEP 

PRINTER IS 1 

BEEP 

PRINT "INVALID ENTRY” 

PRINTER IS 701 

60TO 1240 

ENO IF 

ENO IF 

OUTPUT OFilelsLdtcl Ldtc2 

Im=l option 

ELSE 

BEEP 

INPUT "GIVE THE NAME OF THE EXISTING DATA FILE” ,02_files 
PRINT USING "16X,""Old file name: “",14A",02_files 
ASSIGN @File2 TO O2_file$s 

ENTER @File2ZsWNrun 

ENTER @File2;Dt 

PRINT USING “I6X,""This data set taken on : ”" 11A"s;DATES( Ot) 
ENTER @FileZislLdtcl ,Ldtc2 

IF Ldtc1>®@ OR Ldtc2>@ THEN 

PRINT USING “16X,""Thermocouples were defective at locations:"” ,2(30,4x)"; 


Ldtcl Ldtcz 


140@ 
1404 
1408 
1409 
1411 
1412 
1413! 
1416 
1420 
1424 
1428 
1432 
1436 
1440 
1444 
1448 
1482 


ENO IF 

ENTER @FileZsItt 

END IF 

Idtc=@ 

IF Ldtcl>®@ THEN IdtcelIdtc+1 

IF Ldtc2>0 THEN IdtceIdtc+1 

IF Ime@ AND Ihmel THEN 1595 

BEEP 

INPUT "WANT TO CREATE A PLOT FILE? (@"N,1eY)” Iplot 
IF Iplote! THEN 

BEEP 

INPUT “GIVE NAME FOR PLOT FILE” P_files 
CREATE BDAT P_file$,4 

ASSIGN @Plot TO P_files 

END IF 

IF Ihmel THEN 

BEEP 


Las 


INPUT “WANT TO CREATE Uo FILE? (@"N,1°Y)", luf 
IF Iuf=1 THEN 

BEEP 

INPUT "ENTER Uo FILE NAME” Ufiles 

CREATE BOAT Ufile®,4 

ASSIGN @Ufile TO Ufiles 

END IF 

BEEP 

INPUT “WANT TO CREATE Re FILE? (@9N,1°Y)”" Ire 
IF Ireel THEN 

BEEP 

INPUT “ENTER Re FILE NAME” Ref iles 

CREATE BOAT Refile$,1® 

ASSIGN @Refile TO Refiles& 

END IF 

END IF 

PRINTER IS 1} 

IF Ime@ THEN 

BEEP 

PRINT USING “4X,""Select tube number””” 


IF Imhme® THEN 

PRINT USING “6X,""@ Smooth 4 inch Ref""" 

PRINT USING "6X,""1 Smooth 4 inch Cu (Prees/Slide)""” 
PRINT USING "6X,""2 Soft Solder 4 inch Cu””” 

PRINT USING “6X,""3 Soft Solder 4 inch HIGH FLUX"”” 
PRINT USING “6X,""4 Wieland Hard 6 inch"”” 

PRINT USING "6X,"°"S HIGH FLUX 8 inch"”” 

PRINT USING “6X,""6 GEWA-K 40 Fins/in"”" 

PRINT USING “6GX,""7 GEWA-K 26 Fins/in’”" 

PRINT USING “6X,""8 GEWA-T 19 Fins/in"”” 

PRINT USING "6X,""S GEWA-T OR GEWA-TY 26 Fins/in’”"” 
PRINT USING “6X,""10 THERMOEXCEL-E""” 

PRINT USING "6X,“"11 THERMOEXCEL-HE"”” 

PRINP USING "GX,""1Z2 TURBO-B”""” 

PRINT USING “GX,""13 GEWA-K 19 Fins/in””’” 

ELSE 

PRINT USING “6X,°"@ Smooth tube”"” 

PRINT USING "6X,""1 High Flux""” 

PRINT USING “6X,""2 Turbo-B""” 

PRINT USING “6X,""3 High Flux Mod”“"” 

PRINT USING “6X,""4 Turbo-8 Mod""" 

END IF 

INPUT Itt 

OUTPUT @FilelsItt 

END IF 

PRINTER IS 701 

IF Itt<1® THEN PRINT USING “16X,""Tube Number: PS Ooi tt 
IF Itt>8 THEN PRINT USING “16X,""Tube Number: “" OO" sItt 


IF Ihmel THEN PRINT USING “1GX,““Tube Type: 
BEEP 

INPUT “ENTER OUTPUT VERSION (@=LONG, 1=SHORT,Z=°NONE)” , Tov 
BEEP 

INPUT “SELECT (@*LIQ, 1=VAP,2=(LIQ+VAP)/Z)" Tlav 


“" ISA" sTn8( Itt) 


DIMENSIONS FO TESTED TUBES 

ELECTRIC HEATED MODE 

Di-Diameter at thermocouple positions 

DATA .@111125, .O@111128, .@111128, .0129540, .012446, .0129548, . 6100965 
DATA .@1@096S, .01157, .@1157, .01157, .@1157, .01157, .@1@@9E5 

READ Dia(e) 


174 


16886 
16921 
16396) 
170 
1704 
1708 
1712! 
1716! 
172®@ 
1721 
1724 
1728! 
1732! 
1736 
1737 
174 
1744 | 
1748! 
1782 


Di=Dial( Itt) 


O2=Diameter of test section to the base of fins 

DATA .015875,.015875, .0195875, .0@15824, .@15875, .0@15824, .01270 
DATA .0127,.0138, .0@138,.@0138,.@138,.@138, .0127 

READ 02a(#) 


Di=Inside diameter of unenhanced ends 

DATA .0127, .@127, .0@127, .0@132, .0127, .0@132, .@111125, .@111125 
DATA .@118,.@118,.@0118,.@118, .@118, .@111125 

READ Dia(*) 


Do=Outside diameter of unenhanced ends 

DATA .@1587S, .01587S5, .01587S, .015824, .@1587S, .015824, .@1270, .01270@ 
DATA .@1331,.01331,.01331, .0@1331, .@158, .0127 

READ Doa( *) 


L=Length of enhanced surface 
DATA .1016,.1016,.1016,.1016,.2032, .2032, .2032 ,.2032 ,.2032 , .2032, . 2032, .2@ 


32 ,.2032 ,.2032 


1756 
17601 
1764) 
1768 


READ La(*#) 


LusLength of unenhanced surface at the ends 
DATA .0254,.0254, .0254, .0254, .@762 ,.@762 ,.9762 ,.@762 , .0762 ,.9762 ,.9762 ,.07 


62, .Q762, .0762 


1772 
1776! 
17801 
1784 
1788 
1792 
1796! 
1800! 
1804 | 
1808 
1812 
1816 
182 
1824 
1828 
1832 
1836 
1842 
1844 
1848 
1852 
1856 
1860 
1864 
1868 
1872 
1876 
188 
1884 
1888 
1892 
18396 
1900 
1904 
1908 


READ Lua( ¢ ) 

KcusThermal Conductivity of tube 

DATA 398, 344 , 344 45, 344 45, 344 344,398 ,398, 398,398,398 ,344 
READ Kceua( # ) 

IF Ihmel THEN 


Data statements for water heating mode 


DATA @.015875,0.015875 0.0169 ,0.0138 0.0169 ,0,0,0,0,0 


READ D2a(*) 

DATA @.0127,0.0127 ,@.0145,0.0127,0.0145,0,0,0,0,0 

READ Dia(*) 

DATA @.015875 ,@.015875 0.0169 ,@.015875 0.0169 ,0,0,0,0,0 
READ Doa( *) 

DATA @. 3048 ,@. 3048 ,@. 3048 0. 3048 0. 3048 0 ,0,0,0,0 

READ La(*) 

DATA @.0254 ,@.0254 0.0254 0.0254 0.0254 ,0,0,0,0,0 

READ Lua( #) 

DATA 398 45,398 ,45,398 ,0,0,0,0,0 


READ Kcua( ¢ ) 

END IF 

DZ2°DZa( Itt) 

Di=Dia( Itt) 

Do=Doa( Itt) 

L=La( Itt) 

Lu-Lua( Itt) 

KeusKcua( Itt) 

Xn=.8 

Fre.3 

IF Itt=@ THEN Cf=1.70E+9 
IF Itt>@ THEN Cf=3.7037E+10 
A=PI«(Do*2-Di*2)/4 
P=PI*Do 

IF Inhmel THEN 


i? 5 


1912 BEEP 

1916 INPUT “TUBE INITIATION MODE. (1=HOT WATER, 2=STEAM, 3°COLD WATER)” Itin 

1920 IF Itime! THEN PRINT USING "“16X,""Tube Initiate: Hot Water""" 

1924 IF Itim=2 THEN PRINT USING “16X,""Tube Initiate: Steam’"” 

1928 IF Itim=3 THEN PRINT USING “16X,""Tube Initiate: Cold Water"”" 

1932 INPUT “TEMP/VEL MODE: (@=T-CONST,V-DEC; l=T-DEC ,V-CONST; Z2=T-INC,V-CONST)", 


1936 IF Itve® THEN PRINT USING “16X,""Temp/Vel Mode: Constant/Decreasing’”” 
1942 IF Itv=1 THEN PRINT USING “16X,""Temp/Vel Mode: Decreasing/Constant"”” 
1944 IF Itv=2 THEN PRINT USING “16X,“"Temp/Vel Mode: Increasing/Constant"”” 
1948 INPUT “WANT TO RUN WILSON PLOT? (1*Y,@eN)" Iwil 
1952 IF Ihm=! AND Iwil=@ THEN 

1956 IF Itt=@ THEN Ci=.032 

1960 IF Itte! OR Itt#3 THEN Ci=.@59 

1964 IF Itte2 OR Itt=4 THEN Ci=.@62 

19668 BEEP 

1972 INPUT “ENTER CI (DEF: WH=.032 ,HF=.@59 , TB=.@62)" ,Ci 
1976 PRINT USING “16X,""“Sieder-Tate “"" 

198@ PRINT USING "16X%,"" Constant at AD V1 

1984 END IF 

1986 END IF 

1992 IF Ihm=! AND Ime! AND Iwile! THEN 

1996 IF Itt#@ THEN Ci=.032 

2000 IF Itt=1 OR Itt#=3 THEN Ci=.@59 

2004 IF Itt#2 OR Itt#4 THEN Cie. @62 

Z2@0B ASSIGN O@FileZ2 TO ¢ 

2012 CALL Wilson(Cf ,Ci) 

2016 ASSIGN @FileZ TO O2_files 

2020 ENTER OF ile2sNrun,Dold8 Ldtc! Ldtc2 ,Itt 

2024 END IF 

2028 Nsub=@ 

2032 IF Idp=4 THEN Ihnen!) 

2036 IF Ihm=1 THEN Nsub=-6 

2040 Ntc=6 

2041 IF Inhm=@ THEN Ntc#12 

2044 J=1 

2048 Sx#@ 

2@52 Sy=0 

2056 Sxs=@ 

2Q@60 Sxy=0 

2064 Repeat: | 

2066 IF Ime@ THEN 

2072 Otld=2.22 

2076 Ido=2 

Z@B@ ON KEY 0,15 RECOVER 2064 

20684 PRINTER IS } 

Z@86 PRINT USING “4X,""SELECT OPTION" 

20392 PRINT USING “6X,""“@=TAKE DATA”"” 

20996 IF Ihm=@ THEN PRINT USING "6X,""1eSET HEAT FLUX""” 
2100 IF Ihm=1 THEN PRINT USING “6X,""1eSET WATER FLOW RATE””” 
2104 PRINT USING “6X,""2eSET Tsat"”" 

2198 PRINT USING "4X,""NOTE: KEY @ = ESCAPE"”” 

2112 BEEP 

2116 INPUT Ido 

2120 IF Ido>2 THEN Ido=2 

2124 IF Ido=@ THEN 2724 

2126! 

2132! LOOP TO SET HEAT FLUX OR FLOWMETER SETTING 

2136 IF Ido=1! THEN 

2140 IF Ihme® THEN 


176 


BEEP 

INPUT "ENTER DESIRED Qdp" ,Daqdp 

PRINT USING "4X,""DESIRED Qdp ACTUAL Qdp’"” 
Err=1000 

FOR I=1 TO 2 

Sum( I )=@ 

Vt( I] )=@ 

NEXT I 

OUTPUT 709; "“RST" 

FOR Ji=1 70 S 

OUTPUT 709;"CONFMEAS OCV ,S12-S13,USE 600" 
FOR I=1 TO 2 

ENTER 709; Vt(1) 

Sum(1)=Sum(1)+V¥t( 1) 

NEXT I 

NEXT Ji 

FOR I=1 TO 2 

IF I=1 THEN Volt=Sum(1)/5 

IF I=2 THEN Amp=Sum(I)/5 

NEXT I 

Amp=ABS( Amp#!.9182) 

Vol t=ABS( Vol t #25) 

Aqdp=Volt#Amp/(PleDZeL ) 

IF ABS( Aqdp-Oqdp)>Err THEN 

IF Aqdp>Dadp THEN 

BEEP 4000,.2 

BEEP 4000,.2 nd 

BEEP 4000, .2 
ELSE 

BEEP 25@,.2 
BEEP 250, .2 
BEEP 7250, .2 
END IF 
PRINT USING “4X ,MZ.3DE,2X,MZ.3DE"1Oqdp,Aqdp 
WAIT 2 

GOTO 2164 

ELSE 

BEEP 

PRINT USING "4X ,MZ.3DE ,2X,MZ. 3DE" 1 Oqdp,Aqdp 
Err=500 

WAIT 2 

GOTO 2164 

END IF 

ELSE 

BEEP 

INPUT "ENTER FLOWMETER SETTING" ,Fes 

GOTO 2086 

END IF 

END IF 


LOOP TO SET Tsat 

IF Ido=2 THEN 

IF Ikdt=1 THEN 2344 

BEEP 

INPUT “ENTER DESIRED Tsat” ,Otld 

PRINT USING "4X,"" DTsat ATsat Rate Tv Rate”"“ 
Ikdt=1 

Oldi-@ 

OldZ=@ 

Nn= | 


ae) 


2356 WNrseNn MOD 15 

2360 WNn=Nn+!1 

2364 IF Nrsel THEN 

2365 IF Ihme@ THEN PRINT USING "4X,"" Tsat Tid! T1d2 Tv Tsum 


2368 IF Jhm=! THEN PRINT USING “4X,"" Tsat Tid T1d2 Tv Tsump Tinle 
t Tpile Tout"”" 

2372 ENO IF 

2373 FOR Ie1 TO 6 

2374 Sum(I)=#@ 

2375 NEXT I 

2376 OUTPUT 709;"RST" 

2377 ~=€°FOR Ji=1 TO 2@ 

2379 IF Ihm=@ THEN OUTPUT 709; °“CONFMEAS TEMPT ,SO8-S11,USE 600" 
2380 IF Ihm=!1 THEN OUTPUT 709;"CONFMEAS TEMPT,300-305,USE 600" 
2384 FOR I=! TO 6 

2388 IF Ithm=@ AND I1>4 THEN 2401 

2392 ENTER 709;:Eligq(I) 

2396 Suml(I)=Sum(I)+Eliq(I) 

2400 NEXT I 

2401 WEXT Ji 

2402 FOR Ie! TO 6 

2403 IF Ithme@ AND I>4 THEN 2496 

2416 Eligq(I)=*Sum(I)/20 

2424 IF Tel THEN TidieEligq(I) 

2428 IF Ie2 THEN Tid2*Eliq(!) 

2432 IF I*3 THEN TveEliq(I) 

2436 IF J*4 THEN TsumpeEliaq(I) 

2440 IF I*S THEN Tinlet*Eligq(I) 

2444 IF Te6 THEN Tout*Eliq(I) 

2448 NEXT I 

2452 IF Ihmel THEN 

2456 Sunml=@ 

2460 OUTPUT 709; "RST" 

2468 FOR Kkel TO 2@ 

2469 OUTPUT 709;"CONFMEAS TEMPT ,320,USE GOO" 
2472 ENTER 709;€! 

2476 SumleSuml+é! 

2480 WNEXT Kk 

2484 Emf(7)ABS( Sum! /20) 

2488 Tpile=Eef(7)/3.96E-4 

2492 ENO IF 

2496 Atld=(Tldi+T1dZ)«.5 

2500 IF ABS(Atld-Dtld)>.2 THEN 

2504 IF Atid>Dtld THEN 

2508 BEEP 4000,.2 

2512 BEEP 4000,.2 

2516 BEEP 4000,.2 

2520 ELSE 

2524 BEEP 250, .2 

2528 BEEP 250,.2 

2532 BEEP 250,.2 

2536 END IF 

2540 ~ErrieAtid-Old! 

2544 Oldi=Atid 

2548) Err29eTv-01d2 

2552 Old2=Tv 

25853 IF Tld!1>100. THEN 2572 

2556 IF Ihm=@ THEN PRINT USING “4X ,S5(MDO0.00,2X)";sOt1d, Tid! ,T1ld2,Tv, Tsump 
2560 IF Inhmel AND Idp*@ THEN PRINT USING "4X,7(M00.00,2X)"sOt1ld,Tld!,Tld2,Tv,Ts 


iS 


ump ,Tinlet,Tpile 


2564 


IF Ihm=1 AND Idp=4 THEN PRINT USING "4X ,5(MD0.00,2X) ,3¢m30.00,2XK)"sD0tld, Tl 


di ,T1d2,Tv,Tsump, Tinlet,Tpile, Tout 


2568 
2572 
2576 
2580 
7584 
2588 
2592 
2596 
2600 
2604 
2608 
2612 
2616 
2620 
2624 
2628 
2632 


WAIT 2 

GOTO 2356 

GEESE 

IF ABS(Atld-Otld)>.1 THEN 

IF Atid>Otld THEN 

BEEP 3000,.2 

BEEP 3000, .2 

BEoe 

BEEP 800,.2 

BEEP 800,.2 

END IF 

Erri=Atld-Oldl 

Oldt-Atld 

Err2«Tv-0ldz 

Old2=Tv 

IF Ihm=@ THEN PRINT USING “4X,5(MDOD.00,2X)"sOt1d,Tld!t,T1ld2,Tv,Tsump 
IF Ihm=1 THEN PRINT USING “4X,5(MD0.00,2X),3(M3D.00,1X)"sOtld,Tldi,T1ld2,Tv 


» sump, Tinlet,Tpile, Tout 


2636 
2640 
2644 
2648 
2652 
2656 
2660 
2664 
2668 
2672 


WAIT 2 

GOTO 2356 

ELSE 

BEEP 

ErrieAtld-Old! 

Oldi*Atld 

Err2=Tv-01d2 

Old2eTv 

IF Ihme@ THEN PRINT USING “4X,S5(MDOO.00,2X)";Otld,Tldl ,T1d2,Tv,Tsump 

IF Inmet THEN PRINT USING “4X,8(M00.00,2X)"s3Ot1d,T1d!,T1d2,Tv, Tsump,Tinlet 


.Tpile, Tout 


2676 
2680 
2684 
2688 
2692 


WAIT 2 
60TO 2356 
END IF 
END IF 
END IF 


2696! ERROR TRAP FOR Ido OUT OF BOUNDS 


2700 
2704 
2708 
Lie 
2716! 
2720! 
2724 
2728 
2732 
2736 
2737 
2738 
2739 
2740 
274) 
2742 
2744 
2745 
2748 
2752 
2756 
2760 


IF Ido>2 THEN 
BEEP 

GOTO 2088 

END IF 


TAKE DATA IF Im=@ LOOP 

IF Ikole! THEN 2737 

BEEP 

INPUT “ENTER BULK OIL %" Bop 

Ikol=1 

FOR I=! TO Ntc 

E( I )=@ 

Sum( I )9@ 

NEXT I 

OUTPUT 709; "RST" 

FOR Jie! TO 2@ 

IF Ihme@ THEN OUTPUT 709;"“CONFMEAS TEMPT ,S@0-511, USE 6@0" 
IF Ihmel THEN OUTPUT 709; "“CONFMEAS TEMPT , 300-305, USE 600" 
IF Ihme@ THEN Ntcet2 

FOR Ie! TO Ntc 

ENTER 7@9;E(1) 

Sum( I )=Sum(I)+E( 1) 


In, 


2776 
2777 
2778 
2780 
2784 
2785 
2788 
2732 
2797 
2798 
2800 
2801 

2804 
2808 
2812 
2816 
2817 
2813 
2820 
2822 
2823 
2825 
2826 
2828 
2823 
2830 
2832 
2833 
2836 
2837 
2838 
2840 
2844 
2848 
2852 
2860 
2864 
2868 
2872 
2876 
2884 
2888 
2832 
2896 
2300 
2304 
2908 
2303 
2391 
z311 

2912 
2913 
2315 
2316 
2920 
2936 
23937 
2340 
2341 
2944 


IF IT#(S-Neub) THEN Etl(Ji-1)E&( 1) 
IF I=(1@-Neub) THEN Et2(Ji-1d-EC 1) 
NEXT I 

NEXT Ji 

Kd1l=® 

FOR I=1 TO Ntc 

IF I=(39-Neub) OR Ie(1@-Nsub) THEN 
Eave=Sum(I)/20 

Sum(I )=@ 

END IF 

IF I*#(9-Neub) THEN 

FOR Jk*=®@ TO 19 

IF ABS(Et!( Jk )-Eave)<.! THEN 
Sum(1)*Sum( I +Et1( Jk ) 

ELSE 

KdleKdl +1 

END IF 

NEXT Jk 

END IF 

IF I=(1@-Nsub) THEN 

FOR Jk=@ TO 19 

IF ABS(Et2( Jk )-Eave)<.1 THEN 
Sum(I)=Sum(I )+Et2( Jk) 

ELSE 

Kdl=Kdl+! 

END IF 

NEXT Jk 

END IF 

IF I=(S-Nesub) OR I=(!1@-Nesub) THEN PRINT USING “4X,“"“Kdl = “" DO";Kdl 
IF Kdl>1® THEN 

BEEP 

BEEP 

PRINT USING “4X,"““Too much scattering in data - repeat data set””” 
60TO 2084 

END IF 

Emf(I)*Sum(I)/(20@-Kdl ) 

NEXT I 

IF Ifm=! THEN 

Sum(1)=® 

OUTPUT 709;°CONFMEAS TEMPT ,320,USE 600" 
FOR Kk=1 TO 2 

ENTER 709;3€( Kk ) 
Sum(1)=Sum( 1 )4E (Kk ) 

NEXT Kk 

Emf(7)"ABS( Sum(1))/20 

END IF 

IF Ihm=@ THEN 

FOR Ie! TO 2 

Sum( I )=@ z 

NEXT I 

OUTPUT 709;“RST" 

FOR Jie! T0 5 

OUTPUT 7@95;°CONFMEAS DCY ,S12-513,USE 600" 
FOR I=! TO 2 

ENTER 709,€(1) 

Sum(I)=Sum(I)+E( 1) 

NEXT I 

NEXT Ji 

FOR T=! TO 2 

IF I=} THEN VreSue(I)/5 


180 


IF 1#2 THEN Ir#=Sue(1I)#1.9182/5 

NEXT I 

END IF 

ELSE 

IF Ihm=@ THEN ENTER @F ile2:Bop,Told,Emf(e«) Vr Ir 
IF Ihmel THEN ENTER @FileZ2:Bop,Told,Emf(*¢) Fms 
END IF 


CONVERT emf*S TO TEMP , VOLT ,CURRENT 
Tua=O 

FOR I=1 TO Ntc 

IF Idtc>@ THEN 

IF I=Ldtc! OR I=Ldtc2 THEN 
T(1)=@ 

60TO 3044 

END IF 

END IF 

IF Itt<4 AND Ihm=@ THEN 
IF I>4 AND I<3 THEN 
T(I)=@ 

60TO 3044 

END IF 

ENO IF 

TCT m=Emf( I) 

NEXT I 

IF Itt<4 THEN 

FOR I=1 TO 4 

IF IeLdtc! OR I*=Ldtc2 THEN 
TuatTua 

ELSE 

Twa=TwatT( I) 

END IF 

NEXT I 

TwaeTua/( 4-Idtc) 

ELSE 

IF Ihm=1 THEN 3128 

FOR I=1 TO 8 

IF I=Ldtc!l OR I=Ldtc2 THEN 
Tya*Tua 

ELSE 

Twat TwatT( I) ° 
END IF 

NEXT I 

Tw=Twa/( 8-Idtc) 

ENO IF 

Tld=T( 9-Nsub) 

T1d2=T( 10-Nsub) 
Tlda=(T1d+Tld2)«.5 
Tv=T( 11-Neub) 

TeumpeT( 12-Nsub) 

IF Ihm=@ THEN 3176 
Tinlet=T( 13-Nsub) 
Tout=T( 14-Nsub) 

IF Ihm=@ THEN 
Amp=ABS( Ir ) 
Volt=ABS( Vr )e25 
Q=Volt*Amp 

END IF 

IF Itt=®@ AND Ihm=O THEN 
Kcu=FNKcu( Tw) 
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3204 
3208 
3212 
3216! 
3220! 
3224 
3228 
32 32 
3236 
3244 
3248 
3252 
3256 
3260 
3264 
3268 
3272 
3276 
3280! 
32841 
3288 
3292 
3296 
3302 
3304 
3308 
3312 
3316! 
3320! 
3324 


ELSE 
Kcu=Kcual( Itt) 
END IF 


FOURIER CONOUCTION EQUATION WITH CONTACT RESISTANCE NEGLECTED 
IF Ihm=@ THEN Tw=Tu-QeL0G( 02/01 )/( ZePleKcuel ) 
IF Ilqve@ THEN TsateTlda 

IF Ilqv=1 THEN Tsat=(TidatTv)e.S 

IF Ilqv=2 THEN Tsat=Tv 

IF Imhe=! THEN 

Tavg=Tinlet 

Gr ad=37.9853+. 104388¢ Tavg 

Tdr op=ABS( Emf(7))¢1.646/( 10¢Grad) 
Tavgc=Tinlet-Tdrope.S 

IF ABS( Tavg-Tavgc)>.@1 THEN 

Tavg=( Tavg+Tavgc)¢.S 

60TO 3252 

END IF 


COMPUTE WATER PROPERTIES 
IF Ihm=1 THEN 

KweFNKw( Tavg) 
Muwe=FNMuul Tavg) 
CpweFNCpul Tavg) 
PrweFNPrul Tavg) 

RhoweF NRhouw! Tavg ) 
TwieTavg 


Compute MDOT 
Mdot=3.9657E-34+Fmse(3.61955E-3-Fmee( 8.82Q006E-6-Fmae( 1.23688E-7-Fmae4. 31897 


E-1@))) 


33281 
3332 
3336 
3340 
3344 
3348 
Ge Rieye 
3356 
3360 
3364 
3368 
3372 
3376 
338 
3384 
3388 
3392 
3396 
3397 
3399 
3400 
3404 
3405 
3408 
3411 
3413 
3416 
3420 
3424 


Mdot=Mdote( 1.0365-Tinlete(1.96644E-3-TinleteS.252E-6) )/1.0@37 
Kdte@ 

Q=Mdot*Cpwe Tdrop 
Latd=Tdrop/L06( ( Tinlet-Tsat)/( Tinlet-Tdrop-Tsat )) 
UoeQ/(PIeDoeLeLatd) 

Rw=Do*LOG( Do/D1i)/(2.¢Kcu) 

Tw=Teatt+FreLatd 

VweMdot/( RhoweP1¢0i*°2/4) 

Rew*Rhow? Vue Di /Muwa 
HieCieKu/DieRew*.BePru*( 1/3. )0( Muwa/FNMuw Twi) )*.14 
Twic=Tavg-Q/(PIeDoeLeHi ) 

IF ABS( Twi-Twic)>.@1 THEN 

Twi=( TwitTwicde¢.5 

60TO 3364 

END IF 

Twie( TwitTwic)e.S 

Ho=1/( 1/Uo-Do/( Di*Hi )-Rw) 

END IF 

END IF 

IF Ithmel THEN 

Thetab=Q/( HotPI eDoeL ) 

Tw=Tsat+Thetab 

ELSE 

Thetab=Tu-Tsat 

END IF 

IF Thetab<®@ THEN 

BEEP 

INPUT “TWALL<TSAT (@=CONTINUE, 1eEND)” lev 

IF Ieve® THEN GOTO 2068 


eZ 


3428 IF Tev=i THEN 3832 

3432 ENO IF 

3440! 

3444! COMPUTE VARIOUS PROPERTIES 

3452 Tfilm=( TutTsat)¢.5 

3456 Rho=FNRho( Tfilm) 

3460 MueFNMu( TFilm) 

3464 KeFNK(Tfilm) 

3468 CpeFNCp(Tfilm) 

3472 Beta=FNBetalTfilm) 

3476 Hfg=FNHfg( Tsat) 

3480 NieMu/Rho 

3484 AlphaeK/(RhoeCp) 

3488 PreNi/Alpha 

3492 Peat=FNPsat(Tsat) 

3496! 

3500! COMPUTE NATURAL-CONVECTIVE HEAT-TRANSFER COEFFICIENT 

35041 FOR UNENHANCED END(S) 

3508 Hbar-190 

3512 Fee=(HbareP/(KcueA) )*.S¢Lu 

3516 Tanh=FNTanh( Fe) 

3520 Theta=sThetab*Tanh/Fe i 

3524 Xx=(9.81¢BetaeThetab*Do* 3¢ Tanh/(FeeNi*Al pha) )*.166667 

3528) Yy=( 14 .559/Pr)°(9/16))°( 8/27) 

3532 Hbarc#K/Doe( .64%. 387#Xx/Vy)*2 

3536 IF ABS( (Hbar-Hbarc)/Hbarc)>.@01 THEN 

3540 Hber=(Hbar+Hbarc)¢.5 

3544 60T0 3512 

3548 END IF 

35521 

3556! COMPUTE HEAT LOSS RATE THROUGH UNENHANCED END(S) 

3560 Qle(HbarePeKcueA)*.S*¢Thetabe Tanh 

3564 Qc=Q-2¢#Q)1 

3568 As=PI*#02¢4L 

3572! 

3576! COMPUTE ACTUAL HEAT FLUX AND BOILING COEFFICIENT 

3580 Qdp=Qc/fAs 

3584 Htube=Qdp/Thetab 

3588 Cef=(Cpo*Thetab/Hfg) /( Qdp/( MutHfg)e( .014/(9.81¢Rho)*.5)°C( 1/3. )ePr*1.7) 

3592! 

3596! RECORD TIME OF DATA TAKING 

3600 IF Im=@ THEN 

3604 OUTPUT 709; TIMEDATE” 

3608 ENTER 709; Told 

3612 END IF 

3616! 

3620! OUTPUT DATA TO PRINTER 

3624 PRINTER IS 701 

3628 IF Iov=® THEN 

3632 PRINT 

3636 PRINT USING “10X,""Data Set Number = *" D00,2X,”""Bulk O11 2% = “",00.0,5X,1 

4A": J, Bop, TIMES( Told) 

3640 IF Ihm=@ THEN 

3644 PRINT USING "10X,”""TC No: 1 2 3 4 5 6 7 
g” open 

3648 PRINT USING "10X,""Temp :"* ,8¢1X,M00.00)"3T(1),T(2) , 703) ,T64),7(5), 76) , TC 

7),T(8) 

3652 PRINT USING "10X,"" Twa Tliqd Tliqd2 Tvapr Peat Tesump”"”” 

3656 PRINT USING “10X,2(MD0.00,1X),1X,MD0.00,1X,2(1X,MDO.00) ,2X ,MDO.D%; Tw, T1ld,T 

1d2 , Tv Psat, Teuap 
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366@ PRINT USING "10X,"" Thetab Htube Qdp""" 

3664 PRINT USING “10X,MDO.30,1X,MZ.3DE,1X,MZ.3DE"s Thetab Htube ,Qdp 

3668 ELSE 

3672 PRINT USING "10X,"" Frs Vu Tsat Tinl Tdrop Thetab q Uo 
Ho"*" 

3676 PRINT USING "10X,4(2D.D0,1X),Z.3D,1X,00.00,1X, 3(MZ. 3DE,1X)"3Fms Vu, Tsat,Ti 

nlet,Tdrop, Thetab,Qdp,Uo0,Ho 

368@ END IF 

3684 END IF 

3688 IF Iov=! THEN 

3692 IF J=1 THEN 

3696 PRINT 

3700 ~=IF Ihm=@ THEN 

3704 PRINT USING "10X,"" RUN No OilZ Tsat Htube Qdp Thetab""" 

3708 ELSE 

3712 PRINT USING "10XK,"" FMS OILZ TSAT HTUBE QDP THETAB""" 

3716 END IF 

372@ END IF 

3724 IF Inhm=@ THEN 

3728 PRINT USING “12X,30,4X,00,2X,M00.00,3(1X,MZ.3DE)"1J,Bop, Tsat ,Htube ,Qdp, The 

tab 

3732 ELSE 

3736 PRINT USING °12X,30,4x,00,2X ,MDD.00, 3(1X,MZ.3DE)"1F ms, Bop, Tsat ,Htube ,Qdp,T 

het ab 

3740 §END IF 

3744 END IF 

3748 IF Ime@ THEN 

3752 BEEP 

3756 INPUT “OK TO STORE THIS DATA SET (1*Y,@=N)7" , Ok 

3760 END IF 

3764 IF Ok=1 OR Im=1 THEN J=J+1 

3768 IF Oke! AND Im=@ THEN 

3772 ~=6IF Ihm=@ THEN OUTPUT @FilelsBop,Told,Emf(¢) Vr Ir 

3776 IF Ihm=1 THEN OUTPUT @FilelsBop, Told ,Emf(*) .Fms 

378@ END IF 

3784 IF Iuf=1 THEN OUTPUT @UfilerVu,Uo 

3788 IF Ire=1 THEN OUTPUT @RefileisFms,Rew 

3792 IF (Imel OR Oke!) AND Iplot=! THEN OUTPUT @Plot:;Qdp, Thet ab 

3796 IF Im=@ THEN 

38@@ BEEP 

3804 INPUT “WILL THERE BE ANOTHER RUN (1*Y,@=N)?",Go_on 

3808 WNruneJ 

3812 IF Go_one@ THEN 3832 

3816 IF Go_on<>@ THEN Repeat 

3820 ELSE 

3824 IF J<Nrunt! THEN Repeat 

3828 END IF 

3832 IF Im=@ THEN 

3836 BEEP 

3840 PRINT USING “10X,”""NOTE: “",22,"" data runs were stored in file "" 1A" i J- 

1,D2_files 

3844 ASSIGN @Filel TO » 

3848 OUTPUT @File2sNrun-! 

3852 ASSIGN @File!l TO Di_files 

3856 ENTER OF ilelsOt Ldtcl Ldtc2 ,Itt 

3860 OUTPUT @File2,Dt Ldtcl Ldtc2 Itt 

3864 FOR I=1 TO Nrun-! 

3868 IF Ihm=@ THEN 

3872 ENTER @FilelsBop,Told,Emf(e¢) Yr Ir 

3876 OUTPPT OF ile2:Bop, Told, Emf(*) Vr Ir 
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4280 
4284 
4088 
40972! 


4100 
4104 
4108 
41412 


ELSE 

ENTER @Filet:Bop, Told, ,Emf(*) ,Fms 
OUTPUT @File2:Bop, Told,Emf(*) ,Fms 
END IF 

NEXT I 

ASSIGN @Filel TO # 

PURGE “DUMMY” 

ENO IF 

BEEP 

PRINT 

IF Iplot=1 THEN PRINT USING “10X,"“NOTE: “"“,ZZ,"““ X-Y pairs were stored in 
data file "" 100A", JI-1,P_files 
ASSIGN @File2 TO # 

ASSIGN @Plot TO «¢ 

IF Iuf#1 THEN ASSIGN @Ufile TO # 
IF Ire#=1 THEN ASSIGN @Refile TO *# 
CALL Stats 

BEEP 

INPUT “LIKE TO PLOT DATA (1t#Y¥,@=N)7" , Ok 
IF Ok=! THEN CALL Pilot 

SUBEND 


CURVE FITS OF PROPERTY FUNCTIONS 
DEF FNKcu(T) 


OFHC COPPER 250 TO 3@@ K 

Tk#T4273.15 1c TO K 
Ke434-.112¢Tk 

RETURN K 

FNEND 

DEF FNMu( T) 

172 TO 360 K CURVE FIT OF VISCOUSITY 
Tk@T4273.15 ic TO K 
MuwEXP(-4.46364(1011.47/Tk) )¢1.@E-3 
RETURN Mu 

FNEND 

DEF FNCp(T) 

18@ TO 400 K CURVE FIT OF Cp 
TkeT4273.15 'C TO K 
Cp=.40188+1.65007E-3eTk+!.S51494E-6e Tk *2-6.678S53E- 1QeTk*3 
Co=Cpet 1000 

RETURN Cp 

F NEND 

DEF FNRho( T) 

Tk#T+273.15 ic TO K 


Ko1-(1.8¢Tk/753.95) Kk TOR 
Ro#36.3Z2+61. 1464 14¢X*( 1/3)416.418015*#XK+17. 476838eX* .54+1.119828eX*2 
Ro#=Ro/. 062428 

RETURN Ro 

FNEND 

DEF FNPr(T) 

PreFNCp( T)*FNMut T)/FNK(T) 
RETURN Pr 

FNEND 

DEF FNK(T) 

T<36@ K WITH T INC 

Ke .071-.@@0261¢T 

RETURN K 

FNEND 

DEF FNTanh( X) 

P=EXP( xX) 


SS 


4116 
412@ 
41724 
4128 
4138! 
4184 
4188 
4192 
4196 
4700 
4204 
4208 
4212 
4216 
4220 
4224 
477281 
4232 
42736 
4240 
42744 
4248 
4252 
4756 
4260 
4264 
4268 
4272 
4276 
4280 
4284 
4288 
4292 
4296 
4300 
4304 
4308 
4312 
4316 
4320 
43724 
4328 
4332 
4336 
4340 
4344 
4348 
4352 
4356 
4360 
4364 
4368 
4372 
4376 
4380 
4384 
4388 
4392 
4396 
4400 


Q=1/P 
Tanh=(P-Q)/(P+Q) 
RETURN Tanh 
FNEND 


DEF FNBeta(T) 

Rop*FNRho( T+. |) 

Rome=FNRho( T-. 1) 

Beta=-2/( Ropt+Rom) #( Rop-Rom)/.2 

RETURN Beta 

FNEND 

DEF FNHfo( T) 

Hf oe! .3741344E+S5-T#( 3. 3094361E+2+T#1.2165143) 
RETURN Hfpo 

FNEND 

DEF FNPsat( Tc) 

@ TO 8@ deg F CURVE FIT OF Psat 

Tf91.89Tc+32 
PaeS.945575+TFe( . 15357082+TFe( 1. 4840963E-3+TF*#9.61SQ671E-6) ) 
Po=Pa-14.7 

IF Pg>@ THEN 1 +°PSIG,-"in Hg 

Peat=P9 

ELSE 

Peat=Pp9*#29.92/14.7 

ENO IF 

RETURN Psat 

FNENO 

DEF FNHsmooth( X ,Bop, Isat) 

DIM ACS) ,BCS) ,C¢(S) ,O¢S) 

DATA .20526,.25322,.319048, .S5322, .79909 ,1.@0258 
DATA .74515, .72992,.73189,.71225, .68472, .64197 
DATA .41092,.17726,.25142, .S4806,.81916,1.084S 
DATA .71403,.72913,.72565, .696691,.665867,.61889 
READ ACe) BC) Cl) OC e) 

IF Bop<6 THEN I=Bop 

IF Bop*6 THEN [#4 

IF Bop=!1@ THEN [2S 

IF Isat=1 THEN 

He=EXP( ACI )+BC1)*®LOG(X)) 

ELSE 

He=EXP( C(I )+0(1)*L06( X)) 

END IF 

RETURN Hs 

FNEND 

DEF FNPoly(X) 

COM /Cply/ AC 10,10) ,C( 10) ,BCS) ,Nop, Iprnt ,Opo,Ilog,Ifn,Ijoin,Njoin 
Kl=xX 

Poly=B(@) 

FOR Ie! TO Nop 

IF Ilogel THEN X1l="LOG(X) 

Poly=Poly+B(1)eX1*I 

NEXT I 

IF Iloge! THEN Poly*EXP(Poly) 

RETURN Poly 

FNEND 

SUB Poly 

DIM RC1Q) $010) Syf1Z) ,Sad12Z) Xx 100) , Yy( 100) 
COM /Cply/ AC1@,1@) ,C( 10) ,B¢CS) .N ,Iprnt ,Opo Ilog,Ifn,Ijoin,Njoin 
COM /Xxyy/ Xp(25) ,Y¥p(25) 

FOR I=@ T0 4 
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adda 
4408 
4412 
4416 
442@ 
4474 
44728 
4432 
4436 
4440 
aad 
4448 
4452 
4456 
4460 
4464 
4468 
4472 
4476 
4480 
4484 
4488 
44372 
4456 
4500 
4504 
4508 
4512 
4516 
4920 
4524 
4928 
4532 
4536 
4540 


4548 
4552 
4556 
4562 
4564 
4568 
4872 
4S76 
4580 
4584 
4588 
4592 
4536 
4600 
4604 
4608 
4612 
4616 
4620 
4624 
4628 
4632 
4636 
4640 


B(1)=@ 

NEXT I 

BEEP 

INPUT “SELECT (@=FILE, 1=KEYBOARD,2Z2=PROGRAM)"” Im 
In=Iatl 

BEEP 

INPUT “ENTER NUMBER OF X-Y PAIRS" Np 

IF Ime! THEN 

BEEP 

INPUT “ENTER DATA FILE NAME” ,0 files 
BEEP 

INPUT "LIKE TO EXCLUDE DATA PAIRS (1=Y,@=N)7" led 
IF Ied=! THEN 

BEEP 

INPUT “ENTER NUMBER OF PAIRS TO BE EXCLUDED", Ipex 
END IF 

ASSIGN @File TO O_files 

ELSE 

BEEP 

INPUT “WANT TO CREATE A DATA FILE (1*Y,02N)?7", Yes 
IF Yes*! THEN 

BEEP 

INPUT “GIVE A NAME FOR DATA FILE" ,0 files 
CREATE BOAT O_file8,S 

ASSIGN @File TO O_files 

ENO IF 

ENO IF 

BEEP 

INPUT “ENTER THE ORDER OF POLYNOMIAL” ,N 
FOR I*@ TO Ne2 

Sy(I)=® 

Sx(I)=#@ 

NEXT I 

IF Ied=! ANO Im=! THEN 

FOR I=! TO Ipex 

ENTER @FilesX,Y 

NEXT I 

END IF 

FOR I=! TO No 

IF Im=1 THEN 

IF Opo*2 THEN ENTER @File:X,Y 

IF Opo<2 THEN ENTER @FilesY,X 

IF Opoe#! THEN YeY/X 

IF Tloge! THEN 

IF Opo#Z2 THEN Xt=X/Y 

K=LO6( X) 

IF Opoe2 THEN Y=eLOG( Xt) 

IF Opo<2 THEN Y=LOGC(Y) 

ENO IF 

ENO IF 

IF Im=2 THEN 

BEEP 

INPUT “ENTER NEXT X-Y PAIR" X,Y 

IF Yese! THEN OUTPUT @FilesX,Y 

ENO IF 

IF Im<3 THEN 

Xx( 1 )=X 

Yy(I)=#Y 

ELSE 

X"=Xp(I-1) 


1s) 


4644 
4648 
4652 
4656 
4660 
4664 
4668 
4672 
4676 
4680 
4684 
4688 
4692 
4636 
4700 
4704 
4708 
A712 
A716 
472@ 
A724 
4728 
4732 
4736 
4740 
4744 
4748 
4752 
4756 
4760 
4764 
4768 
4772 
4T76 
4780 
4784 
4788 
4732 
4736 
4800 
4804 
4808 
4812 
4816 
4820 
4824 
4828 
4832 


Y=Yp(I-1) ° 

END IF 

R(O)#¥Y 

Sy(@)=Sy(@)+Y 

S(1)=x 

Sx(1)=2Sx(1)4+X 

FOR J=1 TON 

R( J )=R( J-1)¢xX 

Sy(J)«Sy( J+R( J) 

NEXT J 

FOR J=Z TO Ne2 

S( J)=S( J-1)¢x 

Sx( J)9Sx(J)+S( 5) 

NEXT J 

NEXT I 

IF Yes=1! ANO Im=2 THEN 

BEEP 

PRINT USING "12X,00,"" X-Y pairs were stored in file “",1@0A";Np,0 files 
END IF 

Sx(@)=Np 

FOR I*@ TO N 

C(I )-Sy(I) 

FOR J=@ TO N 

ACT ,Jd9Sx(I+J) 

NEXT J 

NEXT I 

FOR I=@ TO N-! 

CALL Divide(I) 

CALL Subtract(I+1) = 

NEXT I 

BCN)=C(N)/ACNN) 

FOR I=@ TO N-!1 

BCN- 1-I )=C(N-1-1) 

FOR J=-@ TO I 

BCN-1-I )=BCN-1-I )-ACN-1-1 ,N-J)¢BCN-J) 
NEXT J 

BCN-1-I )=BCN-1-I)/ACN-1-I .N-1-I) 

NEXT I 

{PRINTER IS 701 

{PRINT BC e) 

{PRINTER IS 705 

IF Iprnt=@ THEN 

PRINT USING “12X,""EXPONENT COEFFICIENT’”" 
FOR I=@ TON 

PRINT USING "15xX,00,S5X M0. 7DE";I ,8¢1) 
NEXT I 

PRINT " “ 

PRINT USING “12X,""“DATA POINT X Y Y(CALCULATED) OISCR 


EPANCY""” 


4836 
4840 
4844 
4848 
4852 
4856 
4860 
4864 
4868 
4872 
4876 


FOR I=! TO Np 
Yco=B(@) 

FOR J=-1 TON 
Yo#¥o+B( J) eXx( 1) *J 
NEXT J 

DeYy(I)-Yc 

PRINT USING "15X,30,4X ,4(MO.SDE ,1X)"sI,Xx(I) ,Yy(I),¥e,0 
NEXT I 

ENO IF 

ASSIGN @File TO « 
SUBEND 
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4880 
4884 
46868 
4892 
4896 
4900 
4304 
4308 
4912 
4916 
4320 
4924 
4328 
4932 
4936 
4940 
4944 
4948 
4952 
4956 
4360 
4964 
4968 
43972 
4976 
4980 
4384 
4388 
4992 
4996 


SUB Divide(M) 
COM /Coly/ AC 10,10) ,C( 10) ,B8¢5) WN Ipornt Opo Ilog I fn, Ijoin,Njoin 


FOR reM TO N 


Ao#ACI mM) 

FOR Jem TO N 

ACT J»eACT ,J)/Ao 
NEXT J 

C(I )=C(I)/Ao 
NEXT f 

SUBEND 


SUB Subtract(K ) 

COM /Cpoly/ AC1@,10),€(10) BCS) N,fornt ,Opo,llog, Ifn,Ijoin,Njoin 
FOR TreK TO N 

FOR JeK-1 TON 

ACI JyeACK-1,J)-ACT, J) 

NEXT J 

CCT) =C(K-1)-CC I) 

NEXT I 

SUBEND 

SUB Plin 

COM /Coly/ AC 10,10) ,C( 10) BCS) N Iprnt ,Opo Ilog, Ifn,Ijoin,Njoin 
COM /Xxyy/ Xx(25),Yy(25) 

PRINTER IS 7@5 

BEEP 

INPUT “WANT TO PLOT Uo vs Vu? (1°Y,@2N)"  Iuo 

IF Tuoe® THEN 

BEEP 

INPUT “SELECT (@=h/h@Z same tube, leh( HF)/h( sm)" Irt 
BEEP 

INPUT "SELECT h/h RATIO (1eFILE ,O@=COMPUTED)”  Ihrat 
IF Ihrate® THEN 

BEEP 

INPUT “WHICH Tsat (1°6.7,0=-7.2)" Isat 

END IF 

Xmine® 

Xmaxe1@ 

Xstep=2 

IF Irte®@ THEN 

Yrine® 

Ymaxe1.4 

Ystepe.Z 

ELSE 

Ynine® 

Ymaxe1S 

YstepeS 

END IF 

ELSE 

Opoe2 

Ynin=® 

Ymax=12 

Ystep=3 

Xmine® 

Xmaxe4 

Xstepe! 

END IF 

IF Ihrat=! THEN 

Yrnine® 

Ymax=18 s 
Ystep=3 

Xmine® 


ine 


$12 
$124 
$128 
Sisz 
S136 
5140 
S144 
5148 
5152 
S156 
5160 
S164 
5168 
S172 
5176 
518 
S184 
5188 
$192 
S196 
5200 
5204 
5208 
$212 
$216 
5220 
5224 
5228 
$232 
5236 
5240 
S244 
5248 
$252 
5256 
5260 
5264 
5268 
$272 
$276 
5280 
S284 
5288 
$292 
5296 
5300 
5304 
5308 
5312 
5316 
5320 
5324 
5328 
$332 
$336 
5340 
5344 
5348 


$352 


Kmax29 

Xstepe22Z 

END IF 

BEEP 

PRINT “IN: SPIsIP 2300,2200, 8300 ,6800;" 
PRINT “SC @,100,0,1@0;TL 2,03” 

Sf x=100/( Xmax-Xamin) 

Sf y=100/( Ymax-Yain) 

PRINT "PU @,@ PD" 

FOR Xa=Xmin TO Xmax STEP Xstep 

X=( Xa-Xmin)eSfx 

PRINT "PA" X,",@: XTs" 

NEXT Xa 

PRINT “PA 100,0;PU;" 

PRINT “PU PA @,@ PD" 

FOR YasYain TO Ymax STEP Ystep 
Y=(Ya-Yain)eSfy 

PRINT "PA @,"sY,"YT" 

NEXT Ya 

PRINT "PA 0,100 TL @ 2" 

FOR Xa=Xmin TO Xmax STEP Xstep 

K=( Xa-Xmin)#Sfx 

PRINT “PA'sXK,",1@03 XT” 

NEXT Xa 

PRINT “PA 100,100 PU PA 100,@ PD" 

FOR YasYain TO Ymax STEP Ystep 

Y=( Ya-Yain)*#Sfy 

PRINT “PD PA 100,",Y,"YT" 

NEXT Ya 

PRINT "PA 100,100 PU" 

PRINT “PA @,-2 SR 1.5,2" 

FOR Xa=Xmin TO Xmax STEP Xstep 

K=( Xa-Xmin)eSfx 

PRINT "“PA"sX," ,@¢" 

IF Iuo*@ THEN PRINT “CP -2,-13LB"3sXas"" 
IF Iuo#!l THEN PRINT “CP -1.5,-1sLB"%sXas”" 
NEXT Xa 

PRINT “PU PA @,0" 

FOR YasYmin TO Yeax STEP Ystep 

IF ABS( Ya)<1.E-S THEN Yae® 

Y=( Ya-Yain)*Sfy 

PRINT "PA @,"3Y,°" 

IF Iuo#@ THEN PRINT “CP -4,-.25;LB"sYas"” 
IF Iuo#l THEN PRINT “CP -3,-.25:LB"s:Yas"" 
NEXT Ya 

Xl abel $="0il Percent” 

IF Iuo*®@ THEN 

IF Irt#@ THEN 

Yl abel] $="h/hOr" 

ELSE 

Ylabel8="h/hsmooth" 

END IF 

PRINT "SR 1.5,2:PU PA S@,-10 CP";-LEN( Xl abelS$)/24"0;LB";XlabelS;"" 
PRINT "PA -11,5@ CP O,“3-LEN( Yl abelS)/2e5/6; "DI O,1:L8": Ylabel&;°" 
PRINT "CP 0,0" 

ELSE 

PRINT “SPO; SP2" 

PRINT "SR 1.2,2.43PU PA -8,35:;DI @,1;LBU;sPR 1,0.SsLBosPR -1,0.5:3LB (kW/m 


PRINT “PR -1,0.5:SR 1,1.5sL82;SR 1.5,23:PR .5,.5:18.:PR .5,O0:L BK)" 


ee 


5356 
5360 
5364 
5368 
S372 
5376 
5380 
5384 
5388 
S597 
53936! 


5408! 


PRINT "PA 42,-10;01 1,@;LBV;PR .4,-1;LBusPR 1,.5:LB¢ m/s)" 
PRINT “SPO;SP1" 

END IF 

Ipn=0 

BEEP 

INPUT "WANT TO PLOT DATA FROM A FILE (1=#Y,@=N)?" Okp 
Icn= 

IF Okp=1 THEN 

BEEP 

INPUT “ENTER THE NAME OF THE DATA FILE" ,D files 
IF Iuo=#@ THEN 

BEEP 

INPUT “SELECT (@=LINEAR, JteLO6G(X,Y)" ,Illog 
END IF 

ASSIGN @File TO D files 

BEEP 

INPUT “ENTER THE BEGINNING RUN NUMBER” , Md 
BEEP 

INPUT “ENTER THE NUMBER OF X-Y PAIRS STORED" .Npairs 
IF Iuoe® AND Ihrat*® THEN 

BEEP 

INPUT "ENTER DESIRED HEAT FLUX” ,Q 

END IF 

BEEP 

PRINTER IS 1 

PRINT USING "4X,“"Select a symbol:""" 

PRINT USING "4X,""1 Star 2 Plus sign"”” 
PRINT USING "4X%,""3 Circle 4 Square”’"” 
PRINT USING “4X,""S Rombus"”” 

PRINT USING "4X,""6 Right-side-up triangle”’”’" 
PRINT USING "4X,""7 Up-side-down triangle”"” 
INPUT Sym 

PRINTER IS 705 

PRINT “PU DI" 

IF Syme! THEN PRINT “SMe” 

IF Sym=2 THEN PRINT “SM+" 

IF Syme3 THEN PRINT “So” 

Nn#4 

IF Ilog=! THEN Nne!l 

IF Md>1i THEN 

FOR Ie! TO (Md-1) 

ENTER @File;Xa,Ya 

NEXT I 

END IF 

IF Ihrat*#® THEN 

Q1=Q 

IF Iloge! THEN Q=L06(Q) 

END IF 

FOR I#1 TO Npairs 

IF Iuoe@ AND Ihrat*@ THEN 

ENTER @File;Xa,8(e) 

Ya°B(O) 

FOR K=1i TO Nn 

Ya=YatB( kK )eQ*K 

NEXT K 

END IF 

IF Iuo#1 OR Ihrate! THEN 

ENTER @FilesXa,Ya 

IF Iuoel THEN YaeYa/ 100 

ENO IF 


on 


5536 


5604 
5608 
5612 
5616 
5620 
5624 
5628 
5632 
S636 
5640 
5644 
5648 
5652 
5656 
S660 
S664 
S668 
5672 
5676 
5680 
5684 
5688 
5632 
S636 
5700 
5704 
5708 
5712 
S716 
5720 
5724 
5728 
S732 
5736 
5740 
S744 
5748 
5752 
5756 
5760 
5764 
S768 
S772 
S776 
5780 
5784 
5788 
5732 
S736 
5800 
5804 
5808 
5812 
S816 
5820 
5824 
5828 
58 32 


IF Iuo#@ AND Ihrat=®@ THEN 

IF ITlog=*! THEN Ya=EXP( Ya) 

IF Ileg*@ THEN YaeQ1/Ya 

IF Irt=@ THEN 

IF Xa*@ THEN 

YorYa 

Ya=1 

ELSE 

YarYa/Yo 

END IF 

ELSE 

Hsm=FNHsmooth(Q, Xa,I sat) 

Ya" Ya/Her 

END IF 

END IF 

KXx(I-1)=#Xa 

Yy(I-1)*Ya 

X=( Xa-Xmin) #Sfx 

Y=( Ya-Ymin)#Sfy 

IF Sym>3 THEN PRINT "SM" 

IF Sym<4 THEN PRINT "SR 1.4,2.4°" 

PRINT “PA” .X,Y,"" 

IF Sym>3 THEN PRINT "SR 1.2,1.6" 

IF Sym=4 THEN PRINT "UC2 ,4,39,0,-8,-4,0,0,8,4,0,14" 
IF Sym=S THEN PRINT “UC3,0,99,-3,-6,-3,6,3,6,3,-6:" 
IF Sym=6 THEN PRINT “UCO,S.3,393,3,-8,-6,0,3,8:" 
IF Syme? THEN PRINT “UCO,-S.3,39,-3,8,6,0,-3,-8:" 
NEXT I 

BEEP 

ASSIGN @File TO # 

END IF 

PRINT “PU SM" 

BEEP 

INPUT “WANT TO PLOT A POLYNOMIAL (1"Y,@8N)7” Okp 
IF Okp=1 THEN 

BEEP 

PRINTER IS 1 

PRINT USING “4X,""Select line type:"”” 

PRINT USING “6X,""@ Solid line”’”’" 

PRINT USING “6X,""1 Dashed”"”"” 

PRINT USING "6X,"°"2,,,5 Longer line - dash""” 
INPUT Ipn 

PRINTER IS 70S 

BEEP 

INPUT “SELECT (@=LINEAR, l=LO6(X,Y))” ,Ilog 
Iprnte=l 

CALL Poly 

IF Iuo#l THEN 

BEEP 

INPUT “DESIRE TO SET X Lower and Upper Limit (1*Y,Q@°N)?" Ixlinm 
IF Ixlime@ THEN 

X119°@ 

KXul#7 

END IF 

IF Ixlim=! THEN 

BEEP 

INPUT “ENTER X Lower Limit” ,X11 

BEEP 

INPUT “ENTER X Upper Limit”, Xul 

END IF 


INS 


5836 
5840 
5844 
5848 
5852 
5856 
5860 
5864 
5868 
5872 
5876 
5880 
5884 
5888 
5892 
5896 
5900 
5904 
5908 
5912 
5916 
53920 
5924 
5928 
$9 32 
5936 
5940 


END IF 

FOR Xa=X1!1 TO Xul STEP Xstep/ZS 
IcneIcn+! 

YarFNPol y( Xa) 

IF Iuo=1 THEN YasYa/ 1000 

Y=( Ya-Yain)eSfy 

Ke( Xa-Xmin)e¢Sfx 

IF Y¥<@ THEN Y=@ 

IF Y>1@0 THEN GOTO S908 

Pu=@ 

IF Ipn=1 THEN IdfeIcn MOD Z 

IF IpneZ THEN IdfelIcn MOD 4 

IF Ipn=3 THEN Idf=Icn MOD 8 

IF Ipne4 THEN IdfeIcn MOO 16 

IF Ipn=S THEN IdfeIen MOO 32 

IF Idf\=1 THEN Pues! 

IF Pue®@ THEN PRINT “PA” X,Y,°PD" 
IF Puel THEN PRINT “PA” ,X,Y,"PU" 
NEXT Xa 

PRINT “PU" 

60T0 5372 

ENO IF 

BEEP 

INPUT “WANT TO QUIT (1*Y,@"N)7" Iquit 
IF Iquite! THEN S940 

60T0O 5372 

PRINT “PU SPO" 

SUBEND 

SUB Stats 

PRINTER IS 701 

J=@ 

K=Q 

BEEP 

IF Iplote! THEN ASSIGN @File TO P_files 
BEEP 

INPUT “LAST RUN No7?7(@=QUIT)” Nn 
IF Nn#=@ THEN 6124 

Nn#Nn-J 

Sx=#@ 

Sy2#0 

$2=@ 

Sxs2*Q 

Sys=® 

Szs2*0 

FOR Tei TO Nn 

JeJ+! 

ENTER @FilesQ,T 

H=Q/T 

Sx*Sx+Q 

Sxs2Sxs8+tQ*2 

Sy*Sy?T 

Sys*Sys+T*2 

$22Sz+H 

Szs*SzstH*2 

NEXT I 

QaveeSx/Nn 

TavesSy/Nn 

HaveeS2/Nn 

Sdevaq=SQR( ABS! ( NneSx6-Sx*2)/(Nne(Nn-1)))) 
Sdevt=SQR( ABS( ( NneSys-Sy*2)/(Nne(Nn-1)))) 


Ss 


6076 
6082 
5884 
6088 
6092 
6296 
5100 
6104 
6108 
6112 
6116 


Sdevh=SQR( ABS( ( NneS$25-52°2)/(Nn#t(Nn-1)))) 
Sh= 100? Sdevh/Have 

Sq=100?Sdeva/Qave 

St=1009Sdevt/Tave 

IF K=1 THEN 6116 

PRINT 

PRINT USING “11X,""DATA FILE: "" 14A"; Files 
PRINT , 
PRINT USING "11X,°"RUN Htube SdevH Qdp SdevQ Thetab SdevT"” 


K=1 
PRINT USING "11X,00,2(2X,D.3DE,1X,3D.2D) ,2X,D0. 3D, 1X, 3D. 2D"3J ,Have,Sh,Qave 


,9Q,Tave,ot 


612 
6124 
6128 
6132 
6136 
6148 
6144 
6148 
6152 
6156 
5160 
6164 
6168 
6172 
6176 
6188 
6164 
6188 
6192 
6196 
5200 
52704 
5208 
62121 
6216 
6220 
6224 
6228 
6232 
6236 
5240 
5244 
6248 
6252 
6256 
6260 
6264 
62768 
6272 
6276 
52 8@ 
6284 
6288 
6292 
6296 
5 300 
5304 


60TO 5372 

ASSIGN @Filel TO 

PRINTER IS 1 

SUBEND 

SUB Coef 

COM /Cply/ AC1@0,10),C( 10) 815) N,Iornt ,Opo Ilog Ifn,Ijoin,Njoin 
BEEP 

INPUT “GIVE A NAME FOR CROSS-PLOT FILE” ,Cpfs 
CREATE BOAT Cpofs,2Z 

ASSIGN @File TO Cofs 

BEEP 

INPUT “SELECT (@=LINEAR, 1=LOG(X,Y))" ,Ilog 
BEEP 

INPUT “ENTER OIL PERCENT (-1=STOP)" Bop 
IF Bop<® THEN 6192 

CALL Poly 

OUTPUT O@File;:Bop,8(*) 

60TO 6168 

ASSIGN @File TO * 

SUBEND 

SUB Wilson(Cf ,Ci) 

COM /Wil/ 02,01 ,Do,L,Lu,Kecu 

DIM Emf( 12) 

WLISON PLOT SUBROUTINE DETERMINE CF AND CI 
BEEP 

INPUT "ENTER DATA FILE NAME” Files 

BEEP 

PRINTER IS ! 

PRINT USING “4X,"“"Select option:”"”"" 

PRINT USING “4X,"" @ Vary Cf and Ci""" 
PRINT USING "4X,"" 1 Fix Cf Vary Ci°"” 
PRINT USING “4X,"" 2 Vary Cf Fix Ci""" 
INPUT "ENTER OPTION" ,Icfix 

PRINTER IS 70! 

IF Icfix*@ THEN 6272 

IF Icfix>@ THEN BEEP 

IF Icfix=! THEN INPUT “ENTER Cf" Cef 

IF IcfixeZ THEN INPUT “ENTER CI" Ci 
PRINTER IS 1 

INPUT “Want To Vary Coeff7(1*Y¥ ,O°N)" Iccoef 
IF Iccoef=! THEN INPUT “ENTER COEFF” .R 
PRINTER IS 701 

IF Icfixe@ OR Icfix=Z2 THEN Cfa=.004 

IF Icfix=1 THEN CfaeCef 

Ciea=Ci 

Xn=.8 

Fre.3 
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6308 Jj-@ 

6312 Rre=3Z. 

6316 IF Iccoef*! THEN RreR 

6320 PRINTER IS 1 

6324 PRINT Do,Di,Kcu 

6328 ASSIGN @File TO Files 

6332 ENTER @FilesNrun,Dt Lotcl ,Ldtc2 Itt 
6336 RweDotlL0G( Do/Di)/(2*#Kcu) 
6340 Sx=@ 

6344 Sy=@ 

6348 Sxy=@ 

6352 Sx2=*@ 

6356 SyZ=*@ 

6360 FOR Ie! TO Nrun 

6364 ENTER @File;:Bop, TIMES( Told) ,Emf(*) ,Fms 
6368! CONVERT EMF'S TO TEMPERATURE 
6372 FOR Je! TOS 

6376 T(J) @FNTveviEmf(J)) 

6380 NEXT J 

6384 Teate(T(1)47(2))¢.5 

6388 Tavg=eT(S) 

6392 Grad=37.98653+.104388¢ Tavg 
6396 TdropeEmf(7)¢1.E+6/(10. *¢6rad) 
6400 TavgceT(S)-Tdrop?.S 

6404 IF ABS( Tavg-Tavgc)>.@!1 THEN 
6408 Tavo=( Tavo+Tavgc)?¢.5 

6412 60TO 6382 

6416 END IF 

6420! 

6424! Compute properties of water 
6478 KweFNKw( Tavg) 

6432 MuwaeFNMuw Tavg) 

6436 Cow=FNCpu( Tavg) 

6440 PrweFNPru( Tavg) 

6444 RhowsFNRhow Tavg) 


6452! Compute properties of Freon-114 

6456 LatdeTdrop/L0G( (T(5)-Tsat)/(T(5)-Tdrop-Tsat ) ) 
6460 IF Jj*@ THEN 

6464 TweTsat+FrelLmatd 

6468 ThetabeTu-Tsat 

6472 Jjel 

6476 ENO IF 

6480 Tfe( Tu+Tsat )e.5 

6484 RhoeFNRho( Tf) 

6488 MueFNMuC TF) 

6492 K=eFNK( TF) 

6496 CpeFNCp( TT) Rs 
6500 BetaeFNBeta( Tf) 

6504 Hfo=FNHfo( Tsat) 

6508 NieMu/Rho 

6512 AlphasK/( RhoeCp) 

6516 PreNi/Alpha 

6520! 

6524! Analysis 

6528! COMPUTE MDOT 

6532 AePIe(00°2-01°2)/4 

6536 P=PIeDo 

6540 Mdote3.S657E-3+Fmse(3.6195SE-3-Fmse( 8. 82006E-6-Fmee(1.27368BE-7-Fmee4. 31897 
E-10))) 
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6544 Q=Mdot*Cow*Tdrop 

6548! COMPUTE NATURAL-CONVECTIVE HEAT-TRANSFER COEFFICIENT 
6552! FOR UNENHANCED END(S) 

6556 Hbar=1390 

6560 Fee(HbareP/(KcueA))*.Selu 

6564 Tanh=FNTanh( Fe) 

6568 Theta=ThetabeTanh/Fe 

6572 Xx#(9.81*Betae ThetabseDo* 3*¢ Tanh/(FeeNi*Al pha) )*.166667 
6576 Yy=(14(.559/Pr)*(9/16))*( 8/27) 

6580 Hbarc#K/Doe( .6+.387#xXx/Yy)*2 

6584 IF ABS‘ ( Hbar-Hbarc)/Hbar)>.@01 THEN 

6588 Hbar=(Hbar+Hbarc)¢.5 

6592 60TO 6560 

6596 END IF 

6600! 

6604! COMPUTE HEAT LOSS RATE THROUGH UNENHANCED ENDS 
6608 Qle(HbarePeKcueA)*.5* Thetab* Tanh 

6612 Qc#Q-24Q1 

6616 As=P1eDZeL 

6620! COMPUTE ACTUAL HEAT FLUX 

6624 Qdp-Qc/fs 

6628 IF Icfix=@ OR Icfix>! THEN Cef=1/Cf*°C(1./Rr) 

6632 Thetab=Cef/CpoeHfge( Qdp/<{ MutHfg)*( .014/(9.81*Rho))*.5)°C 1/ Re oPe*1.7 
66365 HoeQdp/Thetab 

6649 OmegashHo/Cf 

6644 Uo=Q/(PIeDoeL*lLatd) 

6648 VweMdot/(RhoweP1*0i*2/4) 

6652 Rew=RhoweVutDi/Muva 

6656 TwieTwt+Q*Rw/(PiIeDoel ) 

6660 GamarKu/DieRew*.8ePru*( 1/3. )¢( Muwa/FNMuws Twi) )*.14 
6664! PRINTER IS 1 

6668 Ywe(!./Uo-Rw)*Omega 

6672 XweOmega*Do/(GamaeDi ) 

6676 Sx-Sx4+Xwu 

6680@ Sy=Sy+Yu 

6684 Sxy=Sxy+YueXu 

6688 Sx2=Sx24+XweXu 

6692 Sy2*Sy2+YueYu 

6696 NEXT I 

6700 ASSIGN @File TO 

6704 M=(Sx*Sy-NrunéSxy)/( Sx*Sx-Nerune Sx2 ) 

6708 C#(Sy-Sx*M)/Nrun 

6712 IF Icfix=@ OR Icfix=3 OR Icfixe4 THEN 

6716 Cice#l/M 

6720 Cfc#1/C 

6724 END IF 

6728 IF Icfixel THEN 

6732 Cice#1/M 

6736 Cfc=Cf 

6740 END IF 

6744 IF Icfixe2 THEN 

6748 CiceCi 

6752 Cfc#i/C - 

6756 END IF 

6760 IF ABS((Ci-Cic)/Cic)>.@01 OR ABS((Cf-Cfc)/Cfc)>.@01 THEN 
6764 Ci#(Ci¢Cicd¢.5 

6768 Cf=(Cf4+Cfc)e.5 

6772 PRINTER 1S 1 

6776 PRINT USING "2XK,"" Cef = “" MZ.3DE,2K,"" Ci = "" MZ. 30E" Caf Ci 
6780 PRINTER IS 701 


16 


6784 
6788 
6732 
6736 
6800 
6804 
6808 
6812 
6816 
6820 
6824 
6828 
6832 
6836 
6840 
6844 
6848 
6852 
6856 
6860 
6864 
6868 
6872 
6876 
6880 
6884 
6888 
6892 
6896 
6900 
6904 
6308 
6912 
6916 
63920 
63924 
63928 
63932 
63936 
6940 
6944 
63948 
6952 
6356 
6360 
6964 
6968 
6972 
6376 
63980 
63984 
6988 
6992 
6996 


71004 
7008 
7012 
7016 
7020 


GOTO 6328 

END IF 

PRINT 

PRINTER IS 701 

PRINT USING "23X,"" Cf Cie 

PRINT USING “8X,” ASSUMED ve MZ. 3DE , 3X, MZ. 30E" sCfa,Cia 
PRINT USING "8X,""CALCULATED “" .MZ.3DE,3X,MZ.3DE";Cef Ci 
PRINT 


Sum2=*Sy2-Z#MeSxy-ZeCeSytM*Z20Sx2420MeCeSx+NruneCl*2 
PRINT USING "10X,""Sum of Squares = "" 2. 3DE"3Sum2 
PRINT USING "10X,""Coefficient = "",0.000";Rr 
SUBEND 

DEF FNMuw( T) 

fA=247.8/(T+133.15) 

Mu=2.4E-5¢10°A 

RETURN Mu 

FNEND 

DEF FNCpu( T) 
Cow#4.21120858-Te(2.26826E-3-Te(4,42361E-S+2.714Z28E-7eT) ) 
RETURN Cow? 1000 

FNEND 

DEF FNRhouw( T) 

Ro=999.52946+T#( .01269-T#(S.482513E-3-Tel. 234147E-5)) 
RETURN Ro 

FNEND 

DEF FNPru( T) 

Pru=FNCou( T)*FNMuwl T)/FNKuC T) 

RETURN Pru 

FNEND 

DEF FNKw( T) 

KXe(74273.15)/273.15 
Kwe-.92247+X*(2.8395-Xe( 1.8007-Ke( .52577- .07344*X) )) 
RETURN Ku 

FNEND 

SUB Plot 

COM /Cply/ AC 10,10) ,C( 10) ,B8(5) Nop Iprnt ,Opo llog,Ifn,Ijoin,Njoin 
OIM Bs( 3) 

INTEGER I1 

PRINTER IS 1 

Idv=@ 

BEEP 

INPUT “LIKE DEFAULT VALUES FOR PLOT (1*Y ,@°N)?" Idv 
Opo=@ 

BEEP 

PRINT USING "4X,""“Select Option:”""" 

PRINT USING "6X,""@ q versus delta-T””” 

PRINT USING “6X,""1 h versus delta-T""” 

PRINT USING “6X,"°"2 h versus q””” 

INPUT Opo a 

BEEP 

INPUT “SELECT UNITS (@=SI,1*ENGLISH)” ,Iun 

PRINTER IS 705 

IF Idv<>1 THEN 

BEEP 

INPUT “ENTER NUMBER OF CYCLES FOR X-AXIS”,Cx 

BEEP 

INPUT “ENTER NUMBER OF CYCLES FOR Y-AXIS" ,Cy 

BEEP 

INPUT "ENTER MIN X-VALUE (MULTIPLE OF 10)" Xmin 
BEEP 
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7024 
7828 
7032 
7836 
7040 
7044 
7048 
7052 
7056 
7060 


7068 
7072 
7076 
7080 
7081 
72084 
7088 
7092 
7096 
7097 
7098 
7039 
7100 
7101 
7102 
7104 
7105 
7128 
7112 
7116 
7120 
7124 
7128 
7132 
7136 
7142 
7144 
7148 
7152 
7156 
7160 
7164 
7168 
Piz 
7176 
7180 
7184 
7188 
7192 
7196 
720@ 
7204 
7208 
7212 
7216 
7220 
7224 
7228 
7232 


INPUT "ENTER MIN Y-VALUE (MULTIPLE OF 10)" Yamin 
ELSE 

IF Opo*e@ THEN 

Cy=3 

Cx=3 

Xmane=. | 

Ymin=100 

ENO IF 

IF Opo=! THEN 

Cy=2 

Cx#2 

Xmine. | 

Yaine 10d 

ENO IF 

IF Opoe2 THEN 

IF Tune@ THEN 

Cy=3 

Cx=2 

Xmin= 100d 

Ymin= 100 

ELSE 

Cy=3 

Cx*3 

Xmin= 100 

Yaine=1@ 

ENO IF 

END IF 

ENO IF 

BEEP 

PRINT “IN;SPI;IP 2300, 2200, 8300 ,6800;" 
PRINT "SC @,100,@,1@0;TL 2,0;" 
Sfx<100/Cx 

Sf y=*100/Cy 

BEEP 

INPUT “WANT TO BY-PASS CAGE? (1eY,@]=N)" Ibyp 
IF Ibype*l THEN 7632 

PRINT “PU @,@ PD" 

Nn=3 

FOR Iei TO Cx! 
KateXminel@* (I-11) 

IF I=Cx+1 THEN Nne=1 

FOR J=1 TO Nn 

IF J=1 THEN PRINT “TL 2 @" 
IF Je2 THEN PRINT “TL 1 @" 


Ka=XateJ 

K@LGT( Xa/XKmin)*Sfx 
PRINT “PA's SX," ,@s XT3™ 
NEXT J 

NEXT I 


PRINT “PA 100,0;PU;" 
PRINT “PU PA @,@ PD" 

Nne=J 

FOR Iel TO Cy+i 
Yat=Yminel@°(I-1) 

IF IeCy+i THEN Nn=!1 

FOR Jei TO Nn 

IF J=l THEN PRINT “TL 2 Q" 
IF J=2 THEN PRINT “TL 1 Q" 
YarVYateJ 

YeLGT( Ya/Ymin)eSfy 


i698 


7235 
724 
7244 
7248 
1257 
7256 
7260 
7264 
7268 
7272 
7276 
7280 
7284 
7288 
7232 
7236 


7304 
7308 
7312 
7316 
732 
7324 
7328 
7332 
7336 
7340 


7348 
7352 
7356 
7360 
7364 
7368 
7372 
7376 
7380 
7384 
7388 
7392 
7396 
7400 
7404 
7408 
7412 
7416 
7420 
7424 
7428 
7432 
7436 
T4&4Q 
7444 
7448 
74S2 
7456 
7460 
7464 
7468 
7472 


PRINT “PA @."3Y¥,"YT" 

NEXT J 

NEXT I 

PRINT “PA 0,100 TL @ 2" 

Nn=3 

FOR I=#1i TO Cx+! 
Kat=Xmine1O*(I-1) 

IF I#=Cx+! THEN Nn=!1 

FOR J=1 TO Nn 

IF J=1 THEN PRINT “TL @ 2” 

IF J>1 THEN PRINT “TL @ 1” 
KXaeXate J 

X=LGT( Xa/Xmin) Sfx 

PRINT “PA"3X,",100; XT” 

NEXT J 

NEXT I 

PRINT “PA 100,100 PU PA 100, PD" 
Nn=39 

FOR I=1 TO Cy+! 
Yat"YmRine10*(I-1) 

IF I=Cy+! THEN Nn! 

FOR J=!1 TO Nn 

IF J=1 THEN PRINT “TL @ 2” 

IF J>1 THEN PRINT “TL @ 1" 
Ya~YateJ 

Y=LGT( Ya/Yain)*Sfy 

PRINT “PD PA 100,",Y,”"YT" 
NEXT J 

NEXT I 

PRINT “PA 100,100 PU" 

PRINT “PA @,-2 SR 1.5,2" 
Ti*L6T< Xmin) 

FOR I=1 TO Cx+! 

Kae Xmine 10*¢( I-11) 

K@LGT( XKa/Xmin) *¢Sfx 

PRINT “PA"sK," Os" 

IF 11>#@ THEN PRINT “CP -2,-2:LBIQO;PR -2 ,2;LB";1is"" 
IF 11<@ THEN PRINT "CP -2,-2;LBI@;PR @,2;LB"s1Tis"” 
Tielit+} 

NEXT I 

PRINT “PU PA 0,0" 

1i*L6T< Yamin) 

Y¥10#10 

FOR Ie! TO Cy+! 
YarYrRine1O*( 1-1) 

YeLGT( Ya/Ymin)*Sfy 

PRINT “PA @,"3Y¥,°" 

PRINT “CP -4,-.25:LBI@s;PR -2,2:;LB":Tis"" 
Lieli+] 

NEXT I 

BEEP 

INPUT "WANT USE DEFAULT LABELS ¢(1#Y ,@=N)7" Idi 
IF Idi<>1 THEN 

BEEP 

INPUT “ENTER X-LABEL” , XlabelS 
BEEP 

INPUT “ENTER Y-LABEL” , Ylabel8 
END IF 

IF Opo<2 THEN 

PRINT “SR 1,2:PU PA 40,-14;" 


LOY 


7476 
7480 
7484 
7466 
7492 
7496 
7500 
7504 
7508 
7512 
7516 


PRINT “LBC T;PR -1.6,3 PO PR 1.2,0 PUsPR .5,-4;LBuosPR .5,11" 
PRINT “LB-TiPR .S,-tslBastiPR .5,1;" 

IF Iun=@ THEN 

PRINT “LB) (K)" 

ELSE 

PRINT "LB) (F)" 

END IF 

END IF 

IF Opos2 THEN 

IF Iun*@ THEN 

PRINT “SR 1.5,23PU PA 40,-14;LBq (W/miSR 1,1.5:PR @.5,11:L82:1SR 1.5,2;7PR 


©.5,-t1ls)” 


7520 
7524 
7528 
7532 
7536 
7540 
7544 
7548 


ELSE 

PRINT "SR 1.5,2;1PU PA 34,-14,LBq (Btu/hriPR .S,.5:L8.3PR .5,-.5;3" 

PRINT "“LBft;PR .S5,13SR 1,1.5:L82;SR 1.5,21sPR .5,-11LB)3" 

END IF 

END IF 

IF Opoe®@ THEN 

IF ITune@ THEN 

PRINT "SR 1.5,2;1PU PA -12,4@;01 @,13:LBq (W/msPR -1,0.5;S5SR 1,1.5;3L82;35R 1 


(Sete 1 ..0tlB)” 


7552 
7556 
756@ 
7564 
7568 
7572 
7576 
7580! 


ELSE 

PRINT “SR 1.5,23:PU PA -12,32;:D01 @,13;L8q (Btu/hr3yPR -.5,.5:L8.3PR .5,.55" 
PRINT "LBFtsSR 1,1.5s3PR -1,.53L82;PR 1,.5:SR 1.5,2;LB8)" 

END IF 

END IF 

IF Opo>@ THEN 

IF Iun*®@ THEN 

PRINT “SR 1.5,2:PU PA -12,38;O01 @,1;LBh (W/ms;PR -1,.5;3;SR 1,1.53L82:3SR 1. 


S.21ER .S.258- 


7584 


7588 
7592 
7596 
7600 
7604 
7608 
7612 
7616 
7620 
7624 
7628 
7632 
7636 
7640 
7644 
7648 
7652 
7656 
7660 
7664 
7668 
7672 
7676 
7680 
7684 
7688 
7692 
7696 


PRINT "SR 1.2,2.4;PU PA -12,37;01 @, ti LBhiPR 1,0.5;LBos;PR -1,0.5:51B (W/m 


PRINT "PR -1,.5:SR 1,1.53LB2;SR 1.5,2;PR .5,.53L8.;:PR .5,0;LBK)” 
ELSE 

PRINT “SR 1.5,21PU PA -12,28:01 @,11:L8h (Btu/hriPR -.5,.5:3LB8.3PR .S,.53" 
PRINT “LBftsPR -1,.53SR 1,1.53L82:SR 1.5,2:PR .5,.5;L8.3PR .5,.5;L8F)" 
END IF 

END IF 

IF Idl*@ THEN 

PRINT "SR 1.5,23PU PA S®@,-16 CP",-LEN( Xl abel ®)/21"0;LB" sXlabel 6;"" 
PRINT “PA -14,50 CP @,"3-LEN(Ylabel®)/2¢S/6;"DI @,1:LB"s Ylabel$,"" 
PRINT "CP @,@ DOI" 

END IF 

Ipn=@ 

Kll=1.€+6 

Xule-1.&+6 

Icn=@ 

If n=@ 

Tjoine=1 

BEEP 

INPUT “WANT TO PLOT DATA FROM A FILE (1° Y,Q=N)7”, Ok 

IF Okel THEN 

BEEP 

INPUT "ENTER THE NAME OF THE DATA FILE" ,D_files 

ASSIGN @File TO O files 

BEEP 

BEEP 

INPUT “ENTER THE BEGINNING RUN NUMBER" Md 

BEEP 

INPUT "ENTER THE NUMBER OF X-Y PAIRS STORED" ,Npairs 
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7700! BEEP 

7704! INPUT “CONNECT DATA WITH LINE (t#¥,@"N)?7”" Ic) 
7708 BEEP 

7712 PRINTER IS 1 

7716 PRINT USING "4X,""Select a symbol:"""” 
7720 PRINT USING “6X,""1 Star Z Plus sign"”" 
7724 PRINT USING "6X,""3 Circle 4 Square""" 
7728 PRINT USING "6X,""S Rombus""" 

7732 PRINT USING "6X,""6 Right-side-up triangle"”” 
7736 PRINT USING "6X,""7 Up-side-down trianglie"”” 
T74Q INPUT Sym 

7744 PRINTER IS 705 

7748 PRINT “PU DI" 

7752 IF Symel THEN PRINT "SMe" 

7756 IF Sym=2 THEN PRINT “SM+" 

7762 IF Sym=3 THEN PRINT "SMo" 

7764 IF Md>1 THEN 

7768 FOR Iel TO (fMd-1) 

T7772, ~=XENTER @FilesYa,Xa 

7T76 NEXT I 

778@ END IF 

7784 FOR Ie1 TO Npairs 

7788 ENTER @File:sYa,Xa 

7792 IF Iel THEN Q1°*Ya 

77986 IF I*Npairs THEN Q2-Ya 

7800 IF Opoel THEN Ya*Ya/Xa 

7804 IF Opo#2 THEN 

7808 Q=Ya 

7812 Ya=Ya/Xea 

7816 XaeQ 

782@ END IF ’ 
7824 IF Xa<Xll THEN XlleXa 

7828 IF Xa>Xul THEN Xul=Xa 

7832 IF Iunel THEN 

7836 IF Opo<2 THEN Xa=Xae1.8 

7840 IF Opo>®@ THEN Ya=Yas. 1761 

7844 IF Opoe@ THEN Ya#Yae?.317 

7848 IF Opo=2 THEN Xa=Xae. 317 

7852 END IF 

7856 X=eLGT( Xa/Xmin)eSfx 

7860 Y=L6T(Ya/YmindeSfy 

7864 Kj=@ 

7868 CALL Symb(X,Y,Sym,Icl ,Kj) 

7872 6OTO 7924 

7876 IF Sym>3 THEN PRINT “SM” 

7880 IF Sym<4 THEN PRINT "SR 1.4,2.4* 

7884 IF Icl=#=@ THEN 

7888 PRINT “PA",X,Y,"" 

7892 ELSE 

7896 PRINT “PA” X,Y,"PD" 

7900 END IF 

7904 IF Sym>3 THEN PRINT "SR 1.2,1.6" 


7908 IF Sym=4 THEN PRINT "UC2,4,99,0,-8,-4,0,0,8,4,0:" 
731Z IF SymeS THEN PRINT “UC3,0,959,-3,-6,-3,6,3,6,3,-63" 


7316 IF Syme6& THEN PRINT “"UC@,5.3,99,3,-8,-6,0,3,83" 


7320 IF Syme7 THEN PRINT "UCO,-S.3,99,-3,8,6,0,-3,-83" 


7924 NEXT I 

73928 PRINT “PU” 

7932 BEEP 

7336 INPUT “WANT TO LABEL? (1*Y,@°N)" ,Ilab 


Z0m 


734 
7944 
7948 
7952 
7956 
7960 
7964 
7968 
7972 
7976 
7980 
7984 
73988 
7332 
7936 


8108 
8112 
6116 
B12 
8124 
8128 
8132 
6136 
8140 
6144 
6148 
8152 
6156 
8160 
6164 
6168 
6172 
8176 


IF Tlabe!l THEN 

PRINT “SPQ; SP2" 

BEEP 

IF Kleab=@ THEN 

Klabe=5 

Ylabe8s5 

INPUT “ENTER INITIAL X,Y LOCATIONS” ,Xlab,Ylab 
Xtt=Xlab-5 


Ytt#Ylab+8 

PRINT “SR 1,1.5” 

PRINT “SM;PA" ,Xtt ,Ytt "LB % Heat File” 
YtteVtt-3 

PRINT “PA” Xtt,Ytt, "LB Oil Flux Name" 


IF Sym=1 THEN PRINT “SMe" 

IF Sym=2 THEN PRINT “SM+" 

IF Syme3 THEN PRINT “SMo" 

Klab=1 

ENO IF 

Kj=1 

CALL Symb( Xlab,Ylab,Sym,Icl ,Kj) 

PRINT “SR 1,1.5;35" 

IF Sym<4 THEN PRINT “PR 2,0" 

BEEP 

INPUT “ENTER BOP" , Bop 

IF Bop<!1@ THEN PRINT “PR 2 ,0:1B"3Bop;"" 
IF Bop>S THEN PRINT "PR .5,0;LB";Bop;"" 
Ihf=-@ 

IF Q15Q2 THEN Ihf=1 

IF Ihf-@ THEN PRINT “PR 4,0;LBInc" 

IF Ihf=1 THEN PRINT "PR 4,0;LBDec" 
PRINT “PR 2,0;LB":D_ file6;"" 

PRINT “SPO;SP1;SR 1.5,2" 

Ylab*-Ylab-S 

END IF 

BEEP 

ASSIGN @File TO » 

X11°K11/1.2 

Kul =Xul#1.2 

60TO 8040 

END IF 

PRINT “PU SM" 

BEEP 

INPUT “WANT TO PLOT A POLYNOMIAL (1°Y,@°N)7" Go_on 
IF Go_on=1 THEN 

BEEP 

PRINTER IS 1 

PRINT USING “4X,"“Select line type:""" 


PRINT USING “6X,""@ Solid line""” 

PRINT USING “6X,""1 Dashed" “" 

PRINT USING “6X,""2,,,5 Longer line - dash""" 
INPUT Ipn_ 

PRINTER IS 705 

BEEP 


INPUT "SELECT (@eLIN, 1@©LOG(X,Y))" Ilog 
Iprnte1 

CALL Poly 

IF Ifn=@ THEN 

BEEP 

INPUT “ENTER NUMBER OF FILES TO JOIN?" .Njoin 
END IF 
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8380 
8384 
8388 
6332 
8396 


8404 
6408 
8412 
8416 


Iyoin*®@ 

IF ITfn<Njoin THEN Tjoin=!} 

IF Ifn=®@ OR Ijoin=! THEN 

FOR I}=#®@ TO 3 
Bs(1j )=Bs( Ij )+BC Ij) 

NEXT Tj 

Ifn=lfnt! 

END IF 

IF NjoinsIfn THEN 

FOR Ij*@ TO 3 
B(14)=Bse(1}))/Njoin 

Be(Ij)=@ 

NEXT Ij 

Ifn=® 

ELSE 

GOTO 7656 

END IF 

BEEP 

INPUT “ENTER Y LOWER AND UPPER LIMITS" ,Y11, Yul 
FOR Xx*@ TO Cx STEP Cx/2@0 
KaeXmine 1O*Xx 

IF Xa<X1ll1 OR Xa>Xul THEN 8372 
Icen®Icnt+!1 

Pu=@ 

IF Ipne! THEN Idf*Icn MOD 2 

IF Ipn=2 THEN Idf*Icn MOD 4 

IF Ipn=3 THEN Idf*Icn MOD 8 

IF Ipn#®4 THEN IdfeIcn MOD 16 

IF IpneS THEN Idf*Icn MOD 28 

IF Idf*! THEN Pus! 

IF Opo®® THEN YasFNPoly( Xa) 

IF Opo=2 AND Tlog=@ THEN Ya=Xa/FNPoly( Xa) 
IF Opo=2 AND Ilog=! THEN Ya=FNPoly( Xa) 
IF Opo=! THEN Ya*FNPoly( Xa) 

IF Ya<Yain THEN 8372 

IF Ya<Y¥ll OR Ya>Yul THEN 8372 

IF Tune! THEN 

IF Opo<2 THEN Xa=Xa*!.8 

IF Opo>® THEN Ya-Yat.176! 

IF Opo®® THEN YarYae.317 

IF Opo=2 THEN XaeXat. 317 

END IF 

YeLGT( Ya/Yrin)¢Sfy 

K=LGT( Xa/Xmin)¢ Sfx 

IF Y¥<@ THEN Y= 

IF ¥>10@ THEN GOTO 8372 

IF Pue® THEN PRINT "PA" .X,Y,”°PD" 
IF Pu«! THEN PRINT “PA",X,Y,"PU" 
NEXT Xx 

PRINT “PU" 

60TO 7656 

END IF - 

BEEP 

INPUT “WANT TO PLOT REILLY’S DATA? (1*°Y,@8N)" Irly 
IF Opo*e®@ OR Opo=! THEN 

X1ll=3 

Xul#20 

END IF ? 

IF Opo#®2 THEN 

X11=210080 
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8420 
8424 
8428 
84372 
6436 
8440 
8444 


8452 


Kul = 10@000 

ENO IF 

IF Irly=!i THEN 

Y11=20 

Yul=70 

BEEP 

INPUT “ENTER LOWER AND UPPER Y-LIMITS FOR PLOTTING" ,Y11, Yul 
FOR Xxe@ TO Cx STEP Cx/200 

Ka=Xmine 10° Xx 

IF Xa<X11 OR Xa>Xul THEN 8508 

K1l=LOG( Xa) 

IF Opo#@ THEN Yl=-2.5402837E-1+X19(4.97201S1-X1e2.S134787E-1 ) 
IF Opo=!l THEN Yl=-2.5402837E-14+X1e(3.3987201S51-xX1¢2.5134787E-1) 
IF Opoe2 THEN Yl=-3.7073801E-1+xX1¢e(8.72S9190E-1-X1eS.8876842E-3) 
Ya=EXP(Y1) 

Y=L6T( Ya/Ymin)eSfy 

X=LGT( Xa/Xmin)?#Sfx 

Ipu=@ 

IF Y<Y11 THEN Ipu=! 

IF Y>Yul THEN 60TO 8508 

IF Ipue@ THEN PRINT “PA” ,X,Y,°POD" 

IF Ipu=i THEN PRINT “PA" ,X,Y,°PU" 

NEXT Xx 

PRINT “PU" 

ENO IF 

BEEP 

INPUT “WANT TO PLOT ROHSENOW CORRELATION? (1#Y,@8N)" Irohs 
IF Irohse! THEN 

Yl1etS 

Yul =8d 

BEEP 

INPUT “ENTER Tsat (Deg C)",Tsat 

Ceaf=.0040 

BEEP 

INPUT “ENTER Caf (DEF=0.004)" Caf 

Tf-Tsatt+2Z 

FOR Xx#@ TO Cx STEP Cx/200 

KaeXmine 1O°Xx 

IF Xa<X1ll OR Xa>Xul THEN 8684 

Kl =LOG( Xa) 

IF Opo<2 THEN Tf=Tsat+Xa/2 

RhoeFNRho( TF ) 

K=FNK( TF) 

Mu=FNMUC TF ) 

CoeFNCp( TF) 

Hf g=FNHf 9! Tsat ) 

Nie-Mu/Rho 

Pr=CpeMu/K 

Omega=CafeHfo/Cpoe(( .014/(9.81¢Rho) )*. blade C1./3)¢Pr*t.7 
IF Opo=@ THEN Yae( Xa/Omega)*3 

IF Opo=!l THEN Ya*( Xa/Omega)*3/Xa 

IF Opo*2 THEN YaeXa*(2./3)/Omega 

IF Opo#2 THEN 

TfceTsat+Xa/Yae.5 

IF ABS(Tf-Tfc)>. Ot THEN 

TRe(TF4TFc)@.S 

GOTO 8584 

ENO IF 

ENO IF 

Y=L6T( Ya/Ymin) #Sfy 
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8660 
3664 
8668 
8672 
8676 
8680 
8684 
8688 
8682 
86396 
8700 
8704 
8708 
8712 
8716 
8720 
8724 
8728 
8732 
8736 
8740 
8744 
8748 
8752 
8756 
8762 
8764 
8768 


8776 
8780 
8784 
8788 
8732 
8786 
8800 
8804 
8808 
8812 
8816 
8820 
8824 
8828 
8832 
8836 
8840 
8844 
8848 
8852 
88S6 
8862 
8864 
8868 
8872 
8876 
8880 
8884 
888e8 
8900 
8304 


A@LGT( Xa/Xmin) *Sfx 

Ipus® 

IF Y<Yl11 THEN Ipu=! 

IF Y>Yul THEN 8684 

IF Ipu*=@ THEN PRINT "PA" ,X,Y,"PO" 

IF Ipu=! THEN PRINT “PA" ,X,Y,"PU" 

NEXT Xx 

PRINT "PU" 

ENO IF 

BEEP 

INPUT “WANT TO QUIT (1*Y,@=2N)" ,Iqt 

IF Iqt=! THEN 8712 

6OTO 7636 

PRINT “PU PA @,@ SPO" 

SUBEND 

SUB Symb(X,Y,Sym,Icl Kj) 

IF Sym>3 THEN PRINT "SM" 

IF Sym<4 THEN PRINT “SR 1.4,2.4" 

Yad=@ 

IF Kj*! THEN Yad=.8 

IF Icl=® THEN 

PRINT "PA" .X,Y+Yad,"” 

ELSE 

PRINT "PA" X,Y+Yad,”"PD" 

ENO IF 

IF Sya>3 THEN PRINT “SR 1.2,1.6°" 

IF Sym=4 THEN PRINT “UCZ ,4,99,0,-8,-4,0,0,8,4 O31" 
IF Sym=S THEN PRINT “UC3,0,99,-3,-6,-3,6,3,6,3,-63" 
IF Sym=6 THEN PRINT “UCO,5.3,99,3,-8,-6,0,3,8:8" 
IF Sym*7 THEN PRINT “UCO,-S.3,99,-3,8,6,0,-3,-8:" 
IF Kj=! THEN PRINT “SM;:PR @,-.8" 

SUBEND 

SUB Purg 

BEEP 

INPUT “ENTER FILE NAME TO BE DELETED” Files 
PURGE Files 

GOTO 8782 

SUBEND 

SUB Tdcn 

COM /Cc/ C(7) ,Ical 

DIM Emf( 1) 

DATA @.10086091 ,25727.94368 ,-767345.829S5 ,78025S95.81 
DATA -324748658S8 ,6.97688E+11 ,-2.66192E4+13,3.94078E+14 
READ C(e) 

BEEP 

INPUT “GIVE A NAME FOR FILE TO BE CREATED" Files 
BEEP 

INPUT “SELECT TUBE (@=WH,1*HF ,Z°WT)" Itt 

BEEP 

INPUT “SELECT THERMOCOUPLE TYPE (@=NEW,1°0L0)" ,Ical 
IF Itt<2 THEN Di=.0127 

CREATE BDAT File$,4 

ASSIGN @File TO Files 

OUTPUT @FilesItt 

J=@ 

BEEP 

OUTPUT 709; "TIMEDATE ™ 

ENTER 7059; Dt 

PRINTER IS 1 

PRINT 


ZU > 


9068 


PRINT " Month, date and time: “;DATES6( Ot), TIMES( Dt) 
PRINT 

PRINT USING “10X,"" Fme Tin Tev Vw*2 Tdrop""" 
IF K=@ THEN 

PRINTER IS 791 

PRINT 

PRINT " Month, date and time: ";DATES( Ot) , TIMES( Dt) 

IF It+t+=@ THEN PRINT USING “10X,""Tube Type: Wieland Smooth""" 
IF Itt=1 THEN PRINT USING "10X,""Tube Type: High Flux""" 
IF Itt=2 THEN PRINT USING "10X,""Tube Type: Turbo-B 
PRINT 

PRINT USING "10X,"" Fars Tin Tev Vu*2 Tdrop”"”" 
PRINTER IS 1 

Ke} 

ENO IF 

BEEP 

INPUT “ENTER FLOWMETER READING" , Fas 

OUTPUT 709;"AR AF@ AL4 VRI” 

FOR L=@ TO 4 

OUTPUT 709;"AS SA“ 

IF L>@ AND L<4 THEN 9020 

S=0 

FOR I*@ TO 9 

ENTER 709;:E 

S@S+E 

NEXT I 

IF L#=@ THEN Emf(@)@ABS(S/10) 

IF L#4 THEN Emf(1)"©ABS(S/10) 

NEXT L 

OUTPUT 709;"AR AFZ2@ ALZ@ VRI" 

OUTPUT 709;"AS SA” 

Etp2@ 

FOR I=@ TO 9 

ENTER 709;E+ 

Et peEtp+Et 

NEXT I 

Etp=Etp/ 1 

TineFNTvev(Emf(l)) 

TeveFNTvsvi Emf(@) ) 

Gr ad= 37.9853+.104386¢Tin 
Mdot=3.96S7E-3+Fmse( 3.6195SE- 3-Fmse(8.82Q006E-6-Fmse( 1.23688E-7-Fase4. 31897 


E-10))) 


9072 
3076 
93080 
9084 
9088 
9092 
9056 
9100 
9104 
9108 
Sii2 
9116 
3120 
9124 
$128 
9132 
9136 
9140 


Vue Mdot/( 1@@@eP1eDi*2)04 

Tdrop=Etpe!1.£+6/( 10@¢Grad) 

PRINT USING "10X,3(D00.00,4X) ,1X,Z.00,4X ,MZ.40°1F es, Tin,Tev,Vw°2,Tdrop 
BEEP 

INPUT "WANT TO ACCEPT THIS DATA SET? (1"Y,Q°N)"” , Ok 

Jo J+! 

IF Ok=@ THEN 

JeJ-1 

60TO 8968 

ELSE 

OUTPUT @FilesFms ,Emf(e¢) Etp 

PRINTER IS 701 

PRINT USING “10X,3(D0.D0,4xX) ,1X,Z.D0,4K ,MZ.4D"1F ms, Tin, Tev,Vu°2,Tdrop 
PRINTER IS 1 

BEEP 

INPUT “WILL THERE BE ANOTHER DATA SET? (1="Y,@=N)" Go_on 

IF Go_on=! THEN 8968 

END IF 


206 


9144 


ASSIGN @File TO * 


$148 PRINTER IS 701 

$152 PRINT 

S1S6 PRINT USING "10X,""NOTE: ""“,2ZZ,"" Gata sets are stored in file "" ISA" I,F 
iles 

S16@ PRINTER IS 1 

3164 SUBEND 

3168 SUB Uoprt 

9172 PRINTER IS 1 

3176 BEEP 

$180 INPUT “Enter Uo File Name" ,Files 

$184 ®SEEP 

9188 INPUT "Number of Data Runs” ,Nrun 

9152 INPUT “Do You Want a Plot File?7(1=#Y,0=8N)" Iplot 
9156 BEEP 

9200 IF Iplot=! THEN 

9204 INPUT “Give Plot File Name" ,P_files 

9208 CREATE BOAT P_file$,4 

9212 ASSIEN @Plot TO P_files 

9216 END IF 

39220 PRINTER IS 701 

9224 PRINT 

9228 PRINT 

9232 PRINT USING “10x,°"" Water Vel Uo""” 

98736 ASSIGN @File TO Files 

9240 IF Iplot=1 THEN ASSIGN @File! TO P_file8 

92744 FOR I=! TO Nrun 

9248 ENTER @FilerVu,Uo 

9252 IF Iplot#! THEN OUTPUT @FilelsV¥u,Uo 

9256 PRINT USING “15X,0.00,6X,MZ.3DE";Vu,Uo 

9760 NEXT I 

9264 ASSIGN @File TO @ 

92768 ASSIGN @Filel TO @ 

9272 PRINT USING "10X,""NOTE: °“",2Z,"" data sets are stored in file °°" ISA" 3Nru 
n,Files 

9276 IF Iplot=! THEN 

9280 PRINT USING “10X,“"NOTE: "",2Z,"" X-Y Pairs are stored in file "",1SA";Nru 
n,P_files 

9784 END IF 

9288 PRINTER IS 1 

$2792 SUBEND 

9296 SUB Select 

9300 COM /Idp/ Idp 

9304 BEEP 

$308 PRINTER IS } 

9312 PRINT USING "4X,""Select option:""” 

9316 PRINT USING "6X,"" @ Taking data or re-processing previous data 
9320 PRINT USING "6X,°" 1 Plotting data on Log-Log ”"" 
9324 PRINT USING “6X,°" 2 Plotting data on Linear""" 
9328 PRINT USING "6X,"" 3 Make cross-plot coefft file””” 
9332 PRINT USING “6X,"" 4 Re-circulate water"”’” 

9336 PRINT USING “6X,"" S Purge””" 

9340 PRINT USING "6X,"" 6 T-Drop correction’”” 

9344 PRINT USING “6X,"" 7 Print Uo File””” 

$345 PRINT USING “6X,"" 8 Modify X-Y file””” 

9346 PRINT USING "6X,"" 9 Move"”" 

3347 PRINT USING "6X,""10 Comb/Fixup""" 

9348 INPUT Idp 

9352 IF Idp=@ THEN CALL Main 

9356 IF Idp=! THEN CALL Plot 
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9362 
9364 
9368 
9372 
9376 
9382 
9361 
9382 
9383 
9385 
9394 
9434 
g4a4 
9454 
9464 
9474 
9484 
9494 
9504 
9514 
9524 
9534 
9544 
9554 
9564 
9574 
9584 
9594 
3604 
9614 
9624 
9634 
9644 
9654 
3664 
9674 
9675 
9684 
9694 
9704 
9714 
9718! 
9722! 
9726 


IF Idp=2 THEN CALL Plin 

IF Idp=3 THEN CALL Coef 

IF Idp=4 THEN CALL Main 

IF Idp=S THEN CALL Purg 

IF Idp*& THEN CALL Tdcn 

IF Idp=7 THEN CALL Uoprt 

IF Idp=8 THEN CALL Xymod 

IF Idp=9 THEN CALL Move 

IF Idpe!@ THEN CALL Comb 

SUBEND 

SUB Xymod 

PRINTER IS 1 

BEEP 

INPUT “ENTER FILE NAME" Files 
ASSIGN @File! TO Files 

BEEP 

INPUT “ENTER NUMBER OF X-Y PAIRS” ,Np 
BEEP 

INPUT “ENTER NEW FILE NAME” ,File2zs 
CREATE BOAT File28,5 

ASSIGN @File2 TO File2s 

BEEP 

INPUT “ENTER NUMBER OF X-Y PAIRS TO BE DELETED” ,Ndel 
IF Ndel=@ THEN 9594 

FOR Ie! TO Ndel 

BEEP 

INPUT “ENTER DATA SET NUMBER TO BE DELETED” ,Nd( I) 
NEXT I 

FOR Je! TO Np 

ENTER @FilelsX,Y 

FOR I=! TO Ndel 

IF Nd(I)=J THEN 93674 

NEXT I ; 
OUTPUT @File2:X,Y 

PRINT J,X,Y 

NEXT J 

PRINTER IS 701 

ASSIGN @Filel TO *# 

ASSIGN @File2 TO 

SUBEND 

SUB Move 

FILE NAME: MOVE 


DIM Bop( 66) ,A( 66) ,B( 66) ,C(66) ,O( 66) ,E( 66) ,F( 66) ,6(66) ,H( 66) ,J( 66) ,K( 6G) ,L< 


66) ,™( 66) 


9730 
9734 
9738 
9742 
9746 
93750 
9754 
9758 
(1) 

9762 
9766 
3772 
S774 
3778 
9782 


DIM Told( 66) ,N( 66) ,Vr( 66) ,Ir( 66) 

BEEP 

INPUT “OLD FILE TO MOVE" ,02_files 

ASSIGN @FileZ TO O2_files 

ENTER @F ile2sWrun Ot ,Ldtcl ,Ldtc2 ,Itt 

FOR I=! TO Nrun 

ENTER @File2;Bop(1),Told(I) 

ENTER @FileZ2sACI) BCI) CCL) OCI) ECCI) FCI) GCI) HCI) SCT) KCI) LCT) MCT) LN 


ENTER @FileZ2sVr( 1) Ir (1) 

NEXT I 

ASSIGN @File2 TO e 

BEEP 

INPUT “SHIFT DISK AND HIT CONTINUE" , Ok 
BEEP 
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9786 INPUT “INPUT BOAT SIZE" ,Size 

9790 CREATE BOAT O2_file$,Size 

9794 ASSIGN @Filet TO O2_files 

9798 OUTPUT OFilelsNrun,Dt ,Ldtct ,Ldtc2 Itt 
9892 FOR Ie! TO Nrun 

98806 OUTPUT @Filel;Bop(I),Told(I) 

9819 OUTPUT @FilelsACI) BCI), CCL), OCI), ECI), FCI) GCI), HCL) JCI), KCL) LCL) MCT), 
NCI) 

9814 OUTPUT OFilels¥r( 1) Ircl) 

9818 NEXT I 

9822 ASSIGN @Filel TO 

9826! RENAME "TEST" TO O2_files 

9830 BEEP 2000,.2 

9834 BEEP 4000,.2 

9838 BEEP 4000,.2 

9842 PRINT "DATA FILE MOVED" 

9846 SUBEND 

9874 SUB Comb 

9878! FILE NAME: COMB 

9882! 

9886 DIM Eaf( 12) 

8890 BEEP 

9894 INPUT "OLD FILE TO FIXUP” 02_files 
§898 ASSIGN @File2 TO O2_files 

$902 Di_file8-" TEST” 

$906 CREATE BDAT DIi_file8,20 

9910 ASSIGN @File! TO Dl_files 

9914 ENTER @FileZs:Nrun,Ot ,Ldtcl .Ldtc2 ,Itt 
3915S Wrunm=20@ 

9918 IF K=@ THEN OUTPUT @FilelsNrunm,Dt Ldtcl Ldtc2 Itt 
$922 FOR I#1 TO Nrun 

9926 ENTER @File2;:Bop,Told,Emf(*) Vr Ir 
9930 OUTPUT @Filel;Bop,Told,Emf(*) Vr Ir 
9934 NEXT I 

9938 ASSIGN @FileZ2 TO *# 

99421 RENAME “TEST” TO O2_filet 

9946 BEEP 2000,.2 

9950 BEEP 4000,.2 

9954 BEEP 4000, .2 

$9958 BEEP 

9962 INPUT “WANT TO ADO ANOTHER FILE (1eY ,O°N)7” Oka 
9966 IF Okael THEN 

9970 Kel 

9974 BEEP 

9978 INPUT "GIVE NEW FILE NAME” Nfiles 
9982 ASSIGN O@FileZ TO Nfiles 

9986 60TO 9914 

$990 END IF 

$3994 ASSIGN @File2 TO e 

$998 SUBEND 


AGe 


oe 
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